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CHAPTER I 
INTRODUCTION 

1.1 General Remarks 

Epicyclic gearing arrangements are comprised of four 
different elements that produce a wide range of speed ratios 
in a compact layout. These elements are: (1) Sun gear, an 
externally toothed ring gear co-axial with the gear train; 
(2) Annulus, an internally toothed ring gear co-axial with 
the gear train; (3) Planets, externally toothed gears which 
mesh with the sun and annulus; and (4) Planet Carrier, a 
support structure for the planets, co-axial with the train. 
The name "epicyclic" is derived from the curve traced by a 
point on the circumference of a circle as it rolls on the 
circumference of a second fixed circle. 

By fixing one of the co-axial members and using the 
remaining two for input and output, three types of simple 
single-stage epicyclic gearing are possible. Generally, 
these are called planetary, star, and solar arrangements. 
This investigation is primarily concerned with planetary gear 
drives (Fig. 1) which have a fixed annulus with the planet 
carrier rotating in the same direction as the sun gear. 

The principal advantages of epicyclic gears over 
parallel shaft gears are considerable savings in weight and 
space (see Table 1). These advantages stem from the fact 
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Figure 1 - Planetary Gear Train 


Application 

Power 

Speeds, rpm 
Ratio 

Drive train type 
Weight, lb. 

Heaviest component, lb. 
Circular pitch, in. 

Pitch circle dia., in. 

Pitch line velocity, fps 

Horsepower losses 

Bearing 

Tooth 

Gearcase size, in. 

Length 

Width 

Height 


Turbo-pump 
4360 h.p. 
6160/1120 
5.5 : 1 


Parallel shaft 

Epicyclic 

3400 

2500 

1730 

1600 

0.907 

0.605 

Pinion 5.774 

Sun 4.619 

Gear 31.754 

Planet 8.083 
Ring 20.785 

155 

102 

46.2 

38 

26 

21.4 

42 

36 

48.5 

33 

36 

32 


Turbo-generator 
1060 kw. 
6000/600 
10 : 1 


Parallel shaft 

Epicyclic 

3800 

2200 

2100 

1500 

0.725 

0.518 

Pinion 3.695 

Sun 2.474 

Gear 36.950 

Planet 9.897 
Ring 22.269 

96.5 

58.5 

21 

8.2 

9 

8.1 

37 

30 

47 

33 

48 

32 


Table 1 - Comparison of Parallel Shaft 


-vs- Epicyclic Gear Trains 
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that the use of multiple planets allows the load to be 
transmitted by several tooth contacts, and the co-axial 
arrangement of input and output shafts gives a more compact 
layout. For a planetary arrangement with three planets, each 
tooth engagement of the sun gear would have to carry one 
third of the total load. Consequently, the dimensions of the 
sun gear would be one— third of the pinion of a parallel shaft 
gear-train designed to transmit an equivalent torque. 

It should be pointed out that six planets do not 
necessarily give a gearing twice the capacity of a similar 
one having only three planets. It is impossible to guarantee 
equal loading among more than three planets due to quality 
and accuracy of workmanship. For this reason, three planet 
designs are preferred, although systems with up to eight 
planets are commercially available. 

A second advantage of using multiple planets is that 
when two or more planets are spaced symmetrically on the 
carrier, the radial loads of the planets offset each other. 
Therefore, the bearings and the gear housing for the co-axial 
elements must be designed only to maintain proper alignment 
of the gearing and withstand loads imposed by external 
conditions . 

Another advantage of epicyclic gearing is that the 
smaller gears used can be made more accurately and with less 
difficulty than the larger ones of parallel shaft gearing. 
They are easier to handle and to harden, and distortion 
during hardening is not such a serious problem. 
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While the ring gear is not carburized because of the 
difficulty of precision grinding of internal teeth, it can be 
hardened by nitriding. This causes so little distortion that 
gears can be run without any post-nitriding processing. 
Normally, hardening of the ring teeth is not that critical 
since the surface stress between internal and external teeth 
is less than that between two external teeth. The concave 
surface of the internal tooth in contact with the convex 
surface of the planet tooth results in a larger contact area 
than for two external teeth, thus increasing the limiting 
wear load. Also, for a given size and number, teeth cut on 
an internal ring are stronger than those cut on an equivalent 
external wheel. 

Use of smaller components giyes lower pitch line veloci- 
ties. This accounts for epicyclic gear trains being more 
quiet than parallel shaft gear trains. Having more teeth in 
mesh, not shifting the load so abruptly, also reduces the 
noise level. 

Generally, single-stage epicyclic gear trains are more 
efficient than equivalent parallel shaft gear trains because 
power losses occurring through tooth friction and bearing 
losses are reduced. Tooth friction losses are approximately 
proportional to the tooth load and the pitch line velocities. 
With smaller tooth loads and slower pitch line velocities, 
the friction loss in epicyclic gears is less than parallel 
shaft gears running at the same rotational speed with the 
same load. Bearing losses are dependent on bearing size, 
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which are smaller on epicyclic gears since no tooth reaction 
loads are carried. 

Epicyclic gear systems have a long history of industrial 
use. As early as 1781, James Watt patented a sun and planet 
gear arrangement used in one of his early engines. However, 
advances in internal gear manufacturing did not parallel 
those in external gears, limiting the development of epicy- 
clic gear trains. As industrial applications required 
transmissions with higher power ratings, the performance of 
epicyclic gear systems became poorer at higher loads since 
load equalization among the planet gears was not realized due 
to poor manufacturing and assembly techniques. 

However, the compact layout and inline arrangement found 
favor with the early automobile designers. Weight and size 
became important considerations since the power source and 
transmission were no longer stationary objects, but an 
integral part of the moving machine. Dr. F. W. Lanchester is 
generally credited with being the first to use epicyclic 
gears in automotive applications with the annulus of the 
first stage used as the planet carrier of the second stage to 
form a compound planetary transmission. 

W. G. Stoeckicht adapted epicyclic gears for aircraft 
and marine applications. He designed the 3300 HP, 3200 to 
1700 RPM gears for the Jumo 222, the largest piston type 
aircraft engine developed in Germany. He also designed a 
5000 HP, 3770 to 550 RPM marine main propulsion unit, which 
had a gear case three feet in diameter, 2 1/2 feet long, and 


7 


whose total weight was less than one ton. 

Presently, planetary gears are frequently used as main 
reduction gears in propulsion gas turbines for merchant 
ships. They are widely used in rotor drive gearboxes for 
helicopter aircraft. In lower horsepower applications, high 
ratio planetary systems are combined with hydrostatic drives 
to produce wheel drives for agricultural and off-highway 
equ ipment. 

In an attempt to save weight and material and obtain 
better load sharing, current gear train designs are increas- 
ingly incorporating lighter, more flexible structures. As a 
result, at higher tooth-meshing frequencies, the dynamic 
behavior of the gears becomes of increasing interest because 
of its affect on gearbox noise and life and power rating of 
the transmission. 

Efforts have been made to determine the instantaneous 
loads on the gear teeth, but few have examined the influence 
of the entire gear train on the dynamic loads. Most models 
used to date did not account for non — con ju ga te gear action 
caused by the deflection of teeth and other elements under 
load, or by inherent errors caused by gear manufacturing and 
assembly. Also, most models did not. consider changes in the 
load sharing among planets when the number of engaged gear 
teeth at each planet change. Accurate modeling of the 
sun/planet and planet/ring tooth engagements directly affects 
the determination of the instantaneous load. 

In addition to the tooth engagement variations, the 
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dynamic loading on the gear teeth is dependent upon the 
interaction of the components that make up the gear train and 
the load transmitted by the gear train. Previous investi- 
gators, for the most part, have not considered load 
variations which normally occur because of the elastic nature 
of the gear train elements. Usually the analysis is made 
considering constant torques applied to the input member, 
constant velocity ratios maintained between meshing gears, 
and a constant torque withdrawn from the output member. 

More recently, large-scale digital computer programs 
have made it possible to investigate gear tooth interactions 
to permit a more realistic model for the epicyclic gear 
train. This would allow the study of dynamic loading by 
considering tooth engagement which is affected by character- 
istics of the gears in mesh, such as errors, tooth stiffnes- 
ses, masses of the gears and contact ratios. Also to be 
considered would be the influence of the gear train composed 
of connecting shafts, gears, bearing supports, couplings, and 
torque inputs. 

It is the purpose of this investigation to develop a 
more comprehensive model which considers the affect of tooth 
engagement and system parameters. This model will be used to 
improve the current analytical methods for determining the 
instantaneous loads to which gear teeth are subjected. Since 
planetary gear systems are most commonly used, and techniques 
exist to determine equivalent planetary gear trains, a 
comprehensive method for analyzing the static and dynamic 
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loading in a planetary gear train will be developed using a 
variable-variable mesh stiffness (VVMS) model for external 
and internal gear teeth. No current technique uses a non- 
linear tooth mesh stiffness in determining planet load 
sharing, nor have any investigations been undertaken 
examining the effect of the phase relationships of the VVMS 
on the dynamic behavior of the gears. Consequently, this 
work extends the scope of engineering analysis of epicyclic 

gearing. The analysis is applicable toward either involute 
or modified spur gearing. 
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CHAPTER II 
LITERATURE REVIEW 

Since the planetary gear train (PGT) is an assembly of 
both external and internal spur gears, this literature review 
relies on information for PGT's as well as its individual 
components in showing the progress and current status of 
epicyclic gearing. Investigation into the action of the 
separate elements must be made in order to better understand 
the behavior of the entire system. Consequently, information 
is presented chronologically, and in separate sections, for 
external/internal spur gears and PGT's, respectively. 

2.1 Spur Gears 

A major factor in the design of spur gears is the power 
that must be transmitted from the primemover to the load. 
The force that is transmitted becomes important in designing 
for gear tooth beam strength, contact stress and scoring 
factor. Dynamic effects must be considered since the load is 
being transmitted by an elastic medium, i.e., deflected gear 
teeth. Consequently, the instantaneous load to which the 
engaged gear teeth are subjected is generally higher than the 
nominal statically calculated load. 

During the late 1920's and early 1930's, the American 
Society of Mechanical Engineers Research Committee investi- 
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gated dynamic loading of gear teeth. Lewis and Buckingham 
conducted tests to determine the effects of operating speed 
and manufacturing errors in the involute tooth profile. 
Their report presented a method to evaluate the dynamic load 
increment due to gear train dynamics and tooth error. These 
studies presented a dynamic load solution more commonly known 
as Buckingham's Equation's [ 1 ]* 

Tuplin [2] used an equivalent spring-mass system 
representing the gears in mesh to determine the dynamic loads 
in gear teeth. The mass was determined from equivalent 
masses of the gears concentrated at the pitch circles. The 
spring stiffness was determined from the static load- 
deflection of two contacting teeth. It was considered 
constant and linear. He felt that dynamic loads occured from 
the passage of "thick" teeth through the meshing zone. The 
excess width impressed a displacement upon the mesh spring, 
introducing dynamic effects. Tuplin investigated different 
shapes of excitation, i.e., profile errors, and concluded 
that the shape of excitation had little effect on his 
results. 

His calculated load increment was independent of the 
average transmitted load and was inversely proportional to 
the pitch— line velocity. Also, his equations did not account 
for system damping nor multiple tooth contact. In general, 
Tuplin's analysis can be considered as using a constant 
equivalent mesh stiffness. 


* Numbers in brackets refer to bibliography 
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Bollinger [3] was one of the first to consider the tooth 
stiffness as a periodic function. Discontinuities in the 
effective stiffness between gear pairs resulted from the 
change from single to double tooth contact and the change 
back from double to single tooth contact. Results of his 
study correlated the experimental and analytical work very 
well . 

This technique can be defined as a fixed-variable gear 
mesh stiffness model (FVMS). Although it is an improvement 
over the constant mesh stiffness model, the simplifications 
used in the model can be generalized as: 


a. It does not account for irregular sharing of the 
load between simultaneously engaged tooth pairs. 
Therefore, analysis is limited to contact ratios 
below 2.0. 

b. Gear tooth errors have negligible effect or none on 
mesh stiffness. This implies for a given load, a 
gear with errors will have an equivalent mesh 
stiffness as the same gear without errors. 

c. Contact is assumed to occur only on the line of 
action . 

d. The contact ratio and/or mesh stiffness is not 
affected by pre-mature or post-mature contact 
caused by deflection of the gear teeth under load. 

e. The mesh stiffness has a fixed functional relation 
to the displacement of the gear. 


In an effort to determine tooth mesh stiffnesses, 
investigations have been made to determine gear tooth deflec- 
tions as a function of the point of load of application. 
Weber [4] used the strain energy technique along with the 
actual shape of the tooth profile in his deflection 
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analysis. Normal, shear, and bending energy in the tooth and 
its foundation was considered to the tooth deflection. 
Hertzian deformation was calculated using the tooth profile 
radii of curvature as equivalent cylinders. Attia (5] 
expanded Weber's model by including circumferential deforma- 
tion of the gear rim and the deflection of a tooth under the 
effect of loaded neighboring teeth. 

Kasuba and Evans [6] used a large scale digitized 
approach to calculate directly the gear mesh stiffness of two 
external spur gears as a function of transmitted load, gear 
profile errors, gear tooth deflections, gear hub deforma- 
tions, and position of tooth contact and the number of tooth 
pairs in contact. By introducing these aspects, the 
calculated gear mesh stiffness (Fig. 2) was defined as being 
a variable-variable mesh stiffness (VVMS). The VVMS model 
has the following properties: 

a. It simulates the gear system by including the 
elastic effects of the entire system and not just 
the gears. 

b. The stiffness of the gear teeth is considered a 
function of the position of contact. 

c. It allows for multiple tooth contact by examining 
each pair of teeth that are in and close to the 
theoretical contact zone. 

d. The gear tooth profiles are defined with errors to 
simulate tooth profile errors found in manufacture. 

e. It allows for backlash in the gears. 


The actual load sharing and deflection are calculated 
for discrete positions within an established mesh arc. For 
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Point A - Reference tooth 
Point B - Preceding tooth 
Point C - Following tooth 
Point D - Reference tooth 


pair enters contact zone 
pair exits contact zone 
pair enters contact zone 
pair exits contact zone 


-Variable Mesh Stiffness 


Figure 2 


Variable 
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any position i, the calculated k^ gear tooth pair stiffness 
KP(k)i, combined mesh stiffness KG^, and load sharing 
incorporate the effects due to profile errors, profile 
modifications, and tooth deflections. The individual gear 
pair stiffness then is 

KPtkJi = Q(k) i /6(k) i (2.1) 

where: Q(k)j = gear pair static tooth load 

S(k)^ = tooth deflection due to bending, 
compression, and shear forces; and 
total hub deformation 

If the effective errors prevent contact, KP(k)i = 0. 

The mesh stiffness at the i th position is the sum of the 
gear tooth pair stiffnesses for all pairs in contact at 
position i, 

KGj = IKP(k) i . (2.2) 

The concept of the VVMS was further expanded by 
introducing an iterative procedure to calculate the WMS by 
solving the statically indeterminate problem of multi-pair 
contacts, changes in the contact ratio, and mesh deflections. 
The results of the VVMS model showed that: 

a. The maximum instantaneous load occurred immediately 
after a change in the number of teeth in contact. 

b. Dynamic load factors decrease with increasing 
average transmitted load between gears. 

c. Dynamic load factors vary with the speed of 
operation of the system and closeness to the 
resonances of the system. 
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d. The gear system can be tuned through the use of 
torsionally flexible gear bodies/ hubs/rims to 
reduce dynamic load factors. 

e. Dynamic load factors are reduced when the contact 
ratio is increased. 

f. Dynamic load factors are reduced when the system 
damping is increased. 

Pintz [7] used a similar technique for developing the 
VVMS for an internal-external gear mesh. This was used to 
determine the dynamic loads experienced in an internal gear 
drive. Pintz's model used an internal ring gear which was 
radially supported and driven by an externally tooth gear. 
He stated that the VVMS model was appropriate in light of the 
"very high contact ratios” encountered with internal gear 
drives. Use of the WMS allowed investigation into problems 
unique to internal gears such as ring gear deflections. He 
examined the effect of ring deflections on the gear mesh, and 
found considerable missing and backhitting of the gear teeth 
similar to the performance of gears with sinusoidal profile 
errors. Also, larger dynamic load factors were found with an 
increase in radial deflection. 

The work of Kasuba and Pintz represents the most 
effective way to date of determining the discontinuous, 
non-constant, gear mesh stiffness. 

2.2 Epicyclic Gears 

Epicyclic gears have been used as early as the 1700’s. 
However, the first recorded attempt to apply engineering 
analysis was made in the very late 1800's. Lanchester [8] 
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recognized the need for "precision in workmanship" to achieve 
optimum performance from the planetary gear train by equal 
load distribution among the planet gears. He found that the 
working clearance for a three planet system allowed the 
planets to find an equilibrium postion such that the load was 
evenly distributed among the planets. But for a four pinion 
combination assembled with the highest degree of accuracy 
possible, it was found that the load was not quite so evenly 
distributed among the four planets. 

Wilson [9] was able to show that his three speed 
epicyclic gearbox achieved an efficiency of 99.25%, which was 
a marked improvement over existing parallel shaft, sliding- 
gear transmissions. He attributed this to reduced oil 
churning in the transmission. The centripetal force of the 
rotating components forced out any surplus oil, leaving just 
the necessary oil film to lubricate the gears. 

Love [10] described a two stage design process for 
epicyclic gearing. The first is the determination of 
relative dimensions based on gear ratios required and the 
physical constraints imposed by assembling an epicyclic gear 
such that the planets are symmetrically placed about the sun. 
The second stage is the determination of absolute dimension 
based on considerations of power to be transmitted, running 
speeds, and the strength of available material of construc- 
tion. 

Seager [11] proposed an approximately theoretical 
analysis of loading in a simple planetary gear system for 


18 


both centered and non-centered (floating) gears. His 
analysis assumed errors in the planet positioning and planet 
tooth thickness, and a constant combined tooth stiffness 
independent of meshing position. Inertia forces were 
neglected, limiting the theory to low speed behavior with 
minimal dynamic effects. Based on the equilibrium conditions 
about the sun gear and compatible displacements among the 
planet gears, Seager developed a set of equations to 
determine load sharing among the planet gears. It was shown 
that for three planets with a floating sun gear, the total 
load is shared equally among the three planets, irrespective 
of the distribution of errors. However, it was found if the 
number of planets was greater than three, the load was no 
longer divided equally among the planets. Furthermore, the 
maximum planet load depended on whether the planet lagged or 
lead its ideal position. 

Imwalle [12] classified designs to achieve load equali- 
zation among planets in two systems, statically indeterminate 
and statically determinate. Statically indeterminate systems 
are ones which rely on precise tolerances of the manufactured 
componests to minimize load imbalances. These systems do not 
lend themselves to rigorous mathematical analysis. Statical- 
ly determinate systems accomplish load equalization by 
introducing additional degrees of freedom into the system. 
This is done by the use of floating members or by allowing 
rigidly connected members to adjust their position to 
provide equalizing action (Fig. 3). Imwalle also developed a 
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1 - Sun gear 

2 - Ring gear 

3 - Planet gears 

4 - Eccentric pivots 

5 - Arms 

6 - Rollers 

7 - Maltese-cross-type 

equalizing member 


Figure 3 


PGT with Floating Members 
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method for comparing different load equalization systems from 
kinematical and dynamic considerations. He assumed the total 
dynamic force to be the sum of two components, 

F d = F d’ + F d"' (2.3) 

where F d ’ = Dynamic force independent of load 

equalization system and used to 
analyze non-uniform rotary motion of 
the principle parts. 

Fa" = Dynamic force dependent upon the type 
of equalization system and its masses. 

The F d " component can be used as a design parameter to 
evaluate the effect of the system on the total dynamic force. 
In general, the lowest value of the dynamic force for a given 
system provides the best load equaliztion. Imwalle’s 
analysis assumes the planetary gears are undamped and 
neglects the mesh stiffness and ring gear flexibility. 
Consequently, the analysis does not account for vibratory 
phenomena in the gear train. 

Seager [13] , noting that even with high quality gears, 
vibration and excessive noise is experienced; tried other 
means to reduce vibration in epicyclic gearing. He showed 
that some potentially troublesome harmonic components can be 
neutralized by suitable choice of tooth numbers. Seager 
stated that the primary source of tooth excitation is static 
transmission error, whose fundamental frequency is the mesh 
frequency. The possibility of neutralizing excitation by the 
teeth in epicyclic gearing comes from the fact that, in 
general, the planets are at different phases of the tooth 
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meshing cycle. When the torsional and transverse modes are 
effectively de-coupled, the conditions for neutralizing the 
components of excitation are: 

Z s . 

—2. f integer (torsional modes) (2.4) 


Z s ± 1 . 

7 integer (transverse modes) 

n 


(2.5) 


where: Z s = Number of teeth, sun gear 
n * Number of planets 

These conditions can be satisfied provided that the number of 
planets is greater than three, and are only valid if all the 
planets are identical and there are no errors in their 
position . 

Cunliffe and Welbourne [14] built and tested a single 
stage epicyclic gear train in order to see whether agreement 
could be obtained between the model of it, and dynamic force 
measurements make on the gear. Their model had 13 degrees of 
freedom and simulated a star gear system with a stationary 
carrier and rotating annulus. Their experimental results 
show that except for very highly loaded, very accurately made 
gears, uniform load sharing cannot be expected even under 
quasi-static conditions, i.e., tooth mesh frequencies below 
the overall fundamental frequency. Load distribution below 
the fundamental frequency can be improved by reducing any of 
the component stiff nessess. Above the fundamental frequency. 
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the system behaves dynamically. The general results imply 
the possibility of dynamic tooth loads of three or four times 
mean tooth loads at low frequency resonances, and up to four 
to six times for high frequency resonances. The thirteen 
mode shapes obtained with the model were classified as to low 
or high frequency modes. The seven low frequency modes were 
strongly influenced by support stiffness in their dynamic 
behavior. Maximum tooth load could be varied by altering 
planet pin stiffness to the mesh stiffness ratio. The six 
high frequency modes were little affected by planet pin 
stiffness. They were, however, critically dependent both on 
tooth contact stiffness and accuracy of manufacture. The 
excitation of particular modes could be reduced by the 
appropriate choice of symmetrical or asymmetrical meshing of 
the planets through selection of tooth numbers in the gear. 

In their investigation of noise generated by planetary 
ring gears in helicopter aircraft transmissions, Chiang and 
Badgley [15] studied the mechanism by which gear meshes 
generate vibrations. These vibrations, which result from the 
deviation from uniform gear rotation, are one of the major 
causes of gearbox noise. Using known dynamic forces as 
inputs in a forced vibration analysis, Chiang and Badgley 
were able to determine ring gear vibration mode shapes and 
amplitudes. These parameters were used to measure the 
effectiveness of design modifications in reducing vibration 
amplitudes and decreasing dynamic forces in the gear train. 
Their analysis also took into account the phase relationships 
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of the dynamic forces on each planetary gear. That is, when 
one of the planet gears reaches its peak dynamic force, the 
remaining planet gears are at intermediate forces below the 
peak value. They concluded that structural modification to 
the ring gear to separate natural frequencies from multiples 
of lower mesh frequency would be most beneficial from the 
standpoint of ring gear vibrations. 

Tucker [16] studied the effects of flexible ring gears 
in epicyclic gear trains. He concluded that rings with 
internal gear teeth have substantially different deflection 
characteristics than discs with external gear teeth that will 
affect the gear train performance. The greater resilience of 
the ring gears, results in greater deflections in the 
internal teeth than the external teeth, which have a more 
rigid support. These deflections in turn, affect the tooth 
stiffness, which is a major factor in determining the dynamic 
loads on the teeth. The dynamic load increment, which would 
be added to the transmitted load, would be: 


M d * 


k r e 


k r t - 


- H 


+ 1 


4M 


(2.5) 


where: = Dynamic load 

k r = Effective tooth stiffness on ring gear 
e = Effective tooth spacing error 
t = Tooth contact time 

M = Equivalent mass of two mating gears 
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The effective stiffness of the ring gear tooth is: 

W. 

k r " — (2.7) 

A + A ' 

where: W t = Tangential load on tooth 

A = Lateral displacement away form mating tooth 
due to radial deflection 

A' = Lateral displacement away from mating tooth 
due to bending moment 

Tucker observed that the flexibility of the ring is so 
much greater than the tooth that the ring spring rate governs 
the dynamic load increment of the tooth. Therefore, at high 
speeds, a ring gear generates much lower dynamic loads than 
an external gear with equivalent tooth errors. 

Tucker felt an important consideration during the design 
phase of an eqicyclic gear set was the calculation of the 
natural frequencies of the ring gear. These frequencies may 
be excited by forcing functions generated during the 
operation of the gear set and result in fatigue failures. 
The forcing functions which can generate such frequencies 
are, in ascending order: 

a. Ring gear teeth spacing errors 

b. Planet gear teeth spacing errors 

c. Oval ring gear 

d. Oval planet gear 

e. Sun gear tooth errors 
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f. oval sun gear 

g. Tooth meshing frequency 

A frequency interference (Campbell) diagram should be 
drawn to determine operating speeds where resonance could be 
expected, since the variation of the forcing functions is a 
linear function of the input gear speed (Fig. 4). if a 
forcing function frequency is coincident or close to a ring 
natural frequency, the ring thickness should be changed to 
avoid problems. 

Nakahara, Takahasi, and Makuso [17] examined the 
practice of using an intermediate ring between the planet 
gear and planet gear pin to improve load sharing among 
planets. They point out that a floating sun gear is not very 
effective in equalizing planet loads if the system has four 
or more planets. Flexible ring gears cannot often be used to 
offset errors because resonance conditions may occur due to 
the decrease of natural frequencies. However, inserting an 
intermediate ring (IR) between the planet gear and its 
spindle has been used successfully to eliminate the influence 
of relatively large errors on the load distribution among 
planets. In general, the effectiveness of the intermediate 
rings is due to increasing the compliance related with the 
distance between the planet gear and spindle center inde- 
pendently of the other planet loads. Two different types of 
intermediate rings are used, depending on the application 
(Fig. 5). 

Figure 5a is used for the case of relatively low speed 
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1 - Sun gear 

2 - Planet gear 

3 - Intermediate ring 

4 - Planet gear spindle 

5 - Ring gear 


Figure 5a - Low Speed Intermediate Ring Structure 
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and high torque. Here the IR can rotate at almost the same 
angular velocity as the planet gear without help of forced 
driving. The IR serves to distribute the planet load to pin 
roller bearing over a wider arc while maintaining a 
concentrated load on the ring gear. The resulting elastic 
deflections of the ring gear then act to offset the system 
errors. The reduced Hertzian contact stress also helps to 
prolong bearing life. 

Figure 5b is used for the case of high power, high speed 
applications, such as marine engine transmissions. In this 
case, it is necessary for the IR to be driven by the sun and 
internal gear in order to rotate with the planet. The ring 
is called a "floating" intermediate ring because it floats on 
an oil film between the planet gear and spindle. The 
relatively thick oil film in the clearance improves the 
compliance of the planet. With high centripetal forces due 
to high carrier angular velocities, the lubrication film also 
increases the damping characteristics significantly. 

Botman [18] evaluated the various vibration modes of a 
single stage planetary gear in order to predict the gear 
tooth loads. Figure 6 shows the dynamic model for only one 
planet. Each component has three rigid body degrees of 
freedom. The planets are symmetrically spaced about the sun 
and attached to the carrier by means of two equal springs 
attached in two perpendicular directions. The total number 
of degrees of freedon was 9+3n, where n is the number of 
planets. The tooth mesh stiffnesses were assumed to be 
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1 - Sun gear 

2 - Planet gear 

3 - Intermediate ring 

4 - Planet gear spindle 

5 - Ring gear 


Figure 5b - High Speed Intermediate Ring Structure 
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constant. The equations of motion in the most general form 
are : 

[M]{q> + [C] {q } + [K] {q } = {F } (2.8) 

where q represents the generalized coordinates, and M, c, and 
K are the inertia, damping, and stiffness matrices, 
respectively, for the components. 

Vibration modes obtained for free vibrations with a non- 
rotating carrier were categorized into two groups, 
axisymmetric or non-axisymmetr ic. in the axisymmetr ic, or 
rotational, modes, all the planets perform the same motion 
with respect to the sun, and the other components have only 
rotational vibration. There were six such modes. The 
remaining twelve modes were non-axisymmetr ic. The planets 
did not all perform the same motion and at least some of the 
other components had lateral motion. The effect of carrier 
rotation on natural frequency was found to be small. The 
maximum effect was a reduction in the natural frequency of 
the lowest mode of about 8 percent at design speed. 

Only the natural frequencies corresponding to the six 
rotational modes were found. Hence, Botman concluded that 
the lateral modes are suppressed by carrier motion. He also 
felt that the dominance of rotational modes suggested it was 
more meaningful to measure accelerations of the ring gear in 
the tangential, rather than radial direction. Since gear 
mesh frequencies tend to be high, the high frequency rota- 
tional modes were found to be the significant contributing 
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factor in the dynamic tooth loads. Influence of torsional 
input or output shafts would occur only if components also 
had a high natural frequency. 

Hidaka, et al. [19, 20, 21, 22, 23], did a comprehensive 
study of the dynamic behavior of planetary gears. Using a 
Stoeckicht Type 2K-H, single stage planetary gear system with 
spur gears, Hidaka performed experimental studies to 
determine its dynamic behavior and how it is influenced by 
the operational characteristics of the planetary gear train, 
such as operational load, variation of torque, vibration 
characteristics of the system, and errors of manufacture and 
assembly. In conjunction with the experimental results, 
Hidaka attempted, analytically, to calculate the load distri- 
bution among planets, displacement of floating members, and 
dynamic tooth loads. 

Hidaka first studied the problem of load distribution 
among the planets. The Stoeckicht planetary gear train used 
had both a floating sun and ring gear to eliminate the 
influence of manufacturing errors. Fillet strains were 
measured 30 times during the interval of one synchronous 
position to the next of the gear train. Tooth loads were 
then measured from these fillet strains. The dynamic load 
was defined as the ratio of dynamic fillet strain to static 
fillet strain. The load distribution among the planets was 
then found from the distribution of fillet strains on the sun 
gear teeth. In order to estimate the load distribution and 
dynamic tooth load from the measured fillet strains, Hidaka 
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calculated the mean dynamic load factors and the standard 
deviation through one synchronous interval. A coefficient of 
variation was defined as the ratio of standard deviation to 
the mean value. It was found that for slow input speeds, the 
load was equally distributed among the three planets. For 
higher input speeds, the mean load distribution remained 
nearl Y equ al for the planets. However, the sun gear teeth 
®xp®£isnced increased dynamic loading with increased input 
speed. Hidaka concluded that this variation in dynamic load 
was largely due to torque variation. it also meant that the 
dynamic tooth load could not be predicted just from the mean 
load distribution and the mean dynamic load; the coefficient 
of variation for each of these parameters must also be 
calculated. Using the mean tooth loads and the coefficient 
of variation from the mean of those loads, Hidaka derived 
equations for both the dynamic tooth load and the load 
distribution among the planets. 

Hidaka found that the dynamic tooth load and the load 
distribution among planets is closely related with the 
displacements of the sun and ring gear. He found that in the 
low speed region, displacement of the sun gear served to 
equalize the planet loading. The sun gear moved on the locus 
fixed by the influences of the random errors of manufacture 
and assembly and the elastic deformation of the components. 
At higher speeds, the amplitude of the displacement of the 
sun gear increased and its motion became more circular. 
Generally, the periodicity of the sun gear displacement was 
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comprised of the following three components: 

a. A component of frequency coinciding with the mesh 
frequency, representing the stiffness function. 

b. A component of frequency coinciding with the 
frequency of revolution of the input shaft, 
representing run-out errors. 

c. A component of frequency coinciding with the 
frequency of revolution times the number of 
planets, representing errors of assembly and 
deformation of the ring gear. 

As the sun motion became more circular, the coefficient 
of variation for the dynamic load factor and the coefficient 
of variation for the load distribution rate both increased 
drastically. The larger displacements of the sun gear 
affected the meshing conditions between the sun gear and the 
planets so that dynamic loads were now being introduced on 
the gear teeth. Also, at higher speeds, resonance occured in 
the ring gear if the mesh frequency of the planet/ring 
approached the natural frequency of the ring. 

Hidaka examined ring gear static displacements with 
finite elements to derive approxiamte equations for the 
calculation of deflections of internal gear teeth. The total 
deflection of the internal gear tooth was obtained by super- 
imposing the deflections resulting from the bending moment, 
shearing force, and inclination at the root of the tooth upon 
half the deformation resulting from Hertzian contact. The 
deflection of a loaded tooth causes the adjacent non-loaded 
tooth to decrease the relative approach distance between 
teeth. Consequently, premature contact occurs and the 
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contact ratio is increased. Hidaka later determined that 
having a ring gear too thin produces the undesirable result 
of tip interference with an approaching tooth due to tooth 
deformation. He also found that except at resonance, the 

influence of the rim thickness of a ring gear on the dynamic 
tooth load is small. 

Hidaka developed a dynamic model based on the charac- 
teristics obtained from the experimental results. Important 
assumptions made were: 


a . 


b. 

c. 

d. 


p lanet gear shafts were very stiff and deflection 
of these shafts due to the centripetal force of the 
carrier rotation were neglected. 

Translation of the ring gear was negligible. 

Sun gear displacement was restricted to planar 
motion, i.e., it did not wobble. 

Tooth stiffnesses of the sun/planet and planet/rinq 
meshes were assumed to be constant. 


The rotating inertia and the torsional stiffness in the 
planetary gear train were transformed into the equivalent 
mass and stiffness along the line of action. The angular 
displacements of each component were then also transformed 
into linear displacements in the direction of the line of 
action. The equivalent masses moved up and down corre- 
sponding to the direction of the line of action, but did not 
wobble. Since it is possible for the planet gears to rotate 
freely about their shaft, the planet gears were treated as 
behaving like seesaws. The driving and load elements, 
respectively, were connected by flexible shafts to the sun 
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and ring gear. 

The differential equations were set up by summing the 
forces on the elements and solved by means of the CSMP 
simulation program for continuous systems. The integration 
period was taken as ten revolution of the sun gear (140 
pitches) and the dynamic tooth loads were calculated during 
30 pitches. 

Hidaka concluded that the calculated results satisfacto- 
rily agreed with the measured ones. Calculations of the 
dynamic load factors were found to be low at the higher 
speeds. Hidaka felt this was due to the fact that the main 
cause of the variation of the dynamic load was tooth errors 
and the tooth stiffness varying once per pitch; something he 
was not able to duplicate by assuming a constant average mesh 
stiffness. Calculations of the load distribution rates and 
variation showed tendencies similar to those of the measured 
values, but again the measured load variations were higher in 
the high speed range. Hidaka concluded that this implied 
that load unbalances caused by runout errors could be 
compensated by a floating sun gear. However, with increasing 
speeds, as the sun gear assumed a circular motion, the 
effects of tooth profile error and stiffness variation 
increasingly become prevalent factors in the dynamic loading. 

Jarchow and Vonderschmidt (24) developed a model with 
three planet gears taking into account manufacturing and 
tooth errors and tooth stiffness variations which cause 
vibrations with subsequent inner dynamic tooth forces. A 
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system of coupled, non- homogenou s , non-linear differential 
equations of motion wereused to find the tooth forces in the 
planetary gears. Their study investigated the influence of 
transmitted load and input speed on the effective dynamic 
tooth force. Three configurations were evaluated: 

a. All coaxial elements fixed 

b. Sun gear allowed to float 

c. Carrier allowed to float 

Two parameters were defined in the load calculations: 

a. Planet gear load distribution factor, Ky, which 

takes into account the non-uniform load distribu- 
tion on the individual planets (K Y = 1.0 for ideal 
load distribution). r 

b. Dynamic load factor , which considers the 
additional dynamic tooth forces. 

It was found that for case a, the load distribution 
factor decreased with an increase of load, implying influence 
of manufacturing errors relative to static load decreased 
with increasing load. For cases b and c, was independent 
of the transmitted load. 

The product, KyK^, was defined to be the load magnifica- 
tion factor. Generally, it decreased with an increase of 
load. Case a had the highest load magnification factor, 
while Case c had the lowest. Jarchow's experimental work 
corroborated these findings. It was found that KyKy increased 
strongly with the increase of sun gear speed. One reason 
given was that the entry and exiting impulses increase with 
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the increased speed. Again* Case a and Case c had the 
highest and lowest load magnification factors, respectively. 
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CHAPTER III 

ANALYTICAL INVESTIGATION 
3.1 Problem Formulation 

A complete analysis of the dynamic loading of a 
planetary gear train ( PGT ) is difficult even under ideal 
geometry conditions because of the non-singular engagement 
conditions at each sun/planet and planet/ring mesh. Addi- 
tional difficulties arise because of variations in the load 
transmitted by the PGT. These variations are primarily 
caused by discontinuities in the mesh stiffness resulting 
from the continuous changing, depending on the contact ratio, 
from n to n+1 tooth contact and back to n tooth contact. 
Dynamic effects are introduced as the transmitted load is 
periodically shared between n and n+1 teeth. Further 
complications are introduced by transmission errors caused by 
gear manufacturing errors. A thin tooth or a pit in the 
profile may temporarily prevent or interrupt contact and 
cause sudden disengagement and subsequent clashing between 
teeth. The nonlinearity of the mesh stiffness is also 
greatly affected by the magnitude of the transmitted load. 
In some instances, with a large enough load, the compliance 
of the teeth is great enough so that the magnitude of the 
elastic deflection is greater than the manufacturing error, 
restoring any interrupted contact. 
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Since the variable mesh stiffness for any two gears 
produces parametric excitation, a PGT system with n planets 
will have 2n variable mesh stiffnesses influencing the system 
dynamic behavior.. Figure 7 shows a three planet PGT with 
input torque at the sun gear. Although the three planets are 
spaced symmetrically around the sun gear, the contact points, 
and therefore the mesh stiffness, vary at each engaged gear 
pair. Consequently, a phase relationship can be established 
for the mesh stiffnesses and the dynamic forces (Fig. 8). 
Physically, this phase variation is dependent on the position 
of the planet gears. Also, for a system with multiple 
degrees of freedom, instead of having well defined critical 
speeds, regions of critical speed occur within which large 
vibrations may occur [25]. 

In addition to the ring and mesh stiffness affecting the 
dynamic behavior, the sun support stiffness must also be 
considered. As pointed out in the literature survey, a 
common technique for improving load sharing among planets, is 
to allow the sun gear to translate and find a position of 
equilibrium loading. The magnitude of the sun motion will 
then be dependent on the force imbalance. At high input 
speeds, the dynamic effects of the sun's translation may 
become appreciable. This would be especially true if a 
forcing frequency occured near a basic mode of excitation 
f requency . 

The non-linearities in the geared system give rise. to 
instantaneous load fluctuations between gear teeth despite 
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apparently constant load conditions. Furthermore, the 
magnitude and duration of these fluctuations is influenced by 
the physical characteristics of the geared system. This 
would include the masses and stiffnesses of the components as 
well as damping and the proximity of natural frequencies with 
any of the forcing functions. Having stated the problem, 
this author feels that adequate mathematical tools and 
numerical techniques exist for their solution. The task 
remains to develop a mathematical model that accurately 
describes the physical system and provides meaningful 
results. Not only will new techniques have to be developed 
but improvements will be made to existing ones to provide a 
more efficient analysis. 

3.2 Assumptions 

The following assumptions and conventions are used to 
make the analysis manageable while maintaining a realistic 
model : 

a. For static equilibrium conditions, two torque bal- 
ances must be maintained: 

i. Collectively, the sun gear mesh forces must 
create a torque equivalent to the input 
torque. 

ii. The sum of the torques acting on each 
planet must be zero. 

b. Since there is no net torque acting on the planet, 
there is no net planet hub deformation. Therefore, 
sun/planet and planet/ ring deflections occur, and 
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may be treated, independently. 

c. The analysis will be limited to a single planetary 
gear stage and to vibrations in its plane. Vibra- 
tions out of the plane of the gear stage are assumed 
negligible. This assumption is reasonable when 
tooth loads are confined to one plane, as they are 
in the spur gears being considered. 

d. The differential equations of motion are expressed 
along the actual, rather than the theoretical line 
of action. This allows for evaluation of non- 
conjugate gear action due to transmission error. 

e. The dynamic behavior of the PGT will be investigated 
through several complete engagement or mesh cycles 
to insure steady-state operating conditions. 

f . The load-deflection behavior of the tooth pairs in 
mesh can be represented by a single non-linear 
spring. The gear mesh stiffness is determined as a 
function of transmitted load, gear tooth profile 
errors, and gear tooth, and hub deformations. The 
component of dynamic transmitted load due to the 
spring force is proportional to the relative dis- 
placements of two gears along the instantaneous line 
of action. 

g. Gear errors within a component are periodic and non- 
singular. Tooth deflections are localized and 
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centerline positions of gear teeth non-adjacent to 
loaded teeth remain rigidly fixed. As a tooth is 
being unloaded it regains its original shape and 
regains its rigid body position as the tooth 
immediately preceding it becomes unloaded. 

h. Damping in each gear mash due to lubrication is 
represented by a single dashpot assuming Newtonian 
damping. A constant damping coefficent of £ = 0.1 is 
chosen [26], The critical damping ratio is defined 
as a function of the total effective mass and 
instantaneous stiffness. The component of the 
dynamic transmitted load due to viscous damping is 
proportional to the relative velocities of two gears 
along the instantaneous line of action. 

i. The presence of backlash may lead to tooth separa- 
tion under certain operating conditions. As such, 
the differential equations of motion must consider a 
period of no transmitted load before the contact is 
restored . 

j. In order to isolate the vibratory phenomena within 
the gear train and minimize external influences, the 
input and output shafts are made very stiff tor- 
sionally. Masses of the driver and load are also 
much greater than that of any of the gears. 

k. Displacement of the sun gear caused by allowing it 
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to float is restricted to planar motion, i.e., it 
does not wobble. 

3 . 3 Method of Solution 

The purpose of this investigation is to develop static 
and dynamic load analysis techniques for a planetary gear 
train. The methods presented in the literature review serve 
as the basis for the development of the analysis. The 
investigation is divided into static and dynamic sections, 
with the static results used as a baseline for comparison 
with the dynamic results. The determination of static load 
sharing among the planets will be used as the starting point. 

An important task is the development of the mathematical 
model of the PGT. This allows continuous tracking of the 
individual gear components, the forcing function, i.e., 
driving torque, and the load. An accurate determination of 
the position of the elements is critical since the mesh 
stiffnesses will be considered as functions of gear 
displacement. The model also takes into consideration: 

a. Floating or fixed sun gear 

b. Gear quality 

c. Positioning errors of components 

For a PGT with n planets, the mathematical model has n+4 
masses and, depending on the fixity of the gears, up to n + 6 
degrees of freedom. The model is used to determine the 
extent of the dynamic load increment and its dependence on 
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component stiffness, input speed, transmitted load, and 
planet load sharing. It is also used to study the sun gear 
motion to determine how tooth profile errors affect the 
sun/planet mesh, and the effect of the sun's transverse 
motion on planet load sharing. This model has been 
incorporated into a set of computer programs so that the 
static and dynamic behavior of the individual components, as 
well as that of the complete gear train, can be examined. 

The programs have been developed for use on a mini- 
computer system such as the Hewlett Packard HP-1000 at 
Cleveland State University (CSU). They are incorporated into 
a computer-aided-design package that will be comprised of the 
analyses programs as well as menu-driven, interactive pre- 
and post- processors. This design package will enable the 
designer/analyst to evaluate a PGT design during one 
relatively short terminal session, instead of the rather 
lengthy time involved with a mainframe-supported batch 
system. The inter-active pre-processor allows for easy 
changes in the input data, while the post-processor offers 
the option of either tabular or graphical output for the user 
selected results. 

The analyses programs themselves were developed keeping 
in mind the memory partition limitations of minicomputers. 
For example, the CSU mainframe IBM 370/158 has 4 megabytes of 
main memory, while the HP-1000 Model F contains 512K bytes of 
main memory. Efficient algorithms were developed as well as 
computer techniques, so as not to exceed the limitations of 
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the computer. The computer program was used to conduct 
parametric studies to determine the effect of manufacturing 
errors, tooth profile modifications, and errors damping, 
component stiffness, and transmitted torque on dynamic 
behavior. 

The next three sections of this thesis present a 
detailed development of the static and dynamic analysis as 
well as a description of the computer program. For reference 
purposes. Appendix A explains the techniques used to evaluate 
the individual static gear mesh behavior. Appendix B shows 
how the methodology developed here can be extended to include 
the star and solar type of arrangements of epicyclic gearing. 
Appendices C and D contain the computer program listings. 

3 . 4 Static Analysis 

As mentioned in the previous section, the strategy for 
solution includes investigating the static loading conditions 
in preparation for the dynamic analysis. The accurate 
determination of the inter-dependence of the components' 
variable mesh stiffnesses and planet load sharing is of 
critical importance to successfully analyse the dynamic 
behavior of the PGT. The tasks of the static analysis 
portion of the investigation are: 

a. Determine an equivalent gear train with stationary 
carrier . 

b. Determine phase relationships of all gear mesh 
stiffnesses, including the effects of positioning 
errors . 

c. Determine a synchronous position as a function of 
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the sun gear rotation. 

d. Examine sun gear position and planet load sharing as 
a function of the sun gear rotation. 

In addition, the results of the static analysis must be 
stored for use in the dynamic analysis and for printing of 
selected portions of this material. 

3.4.1 Equivalent Gear Drives 

In a PGT , the power circulating within the system 
components differs from the actual power being transmitted. 
This results from the relative motion of the gears and is 
present in some degree in all planetary gear trains. 
Radzimovsky [27] described a method by which an equivalent 
conventional gear train can be developed in conjunction with 
the particular kinematic characteristics of the planetary 
system. The equivalent conventional gear train would be one 
where the transmitted forces remain the same but the gears 
would only rotate about their own center, simplifying the 
dynamic analysis. 

In the conventional gear train (Fig. 9), the pitch line 
velocities of the two gears are the same and the power output 
by the driven gear is equal to the power input to that gear. 
Figure 10 shows the meshing relations in a PGT. The velocity 
of engagement of the sun/planet and planet/ring gear is 
affected by the relative motion of the planet carrier. For 
the planet gears, the velocity of engagement, v e , is not 
equal to the pitch line velocity, v. If F is the tangential 
force acting at the pitch circle of the sun gear, the product 
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Figure 9 - Conventional Gear Train 
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Figure 10 - Meshing Relationships in a PGT 
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Fv e is not equal to the input power at the driving gear. 

The PGT shown schematically in Figure 11 has a speed 
ratio : 


m 


uTT 


- U + 1 


(3.1) 


where : 


d c = Diameter ring gear 
d A = Diameter sun gear 


The value of mp is positive, implying the input and output 
shafts rotate in the same direction. To eliminate the effect 
of the rotation of the planet gears around the sun, an 
angular velocity, is added to the entire system. The 
angular velocity of the planet carrier goes to 0, while the 
relative motions of all the gears in the train remain the 
same. The planet gears now become idlers and the ent.ire 
assembly may be considered as a conventional gear train with 
fixed axes of rotation (Fig. 12). 

No external forces or torques have been applied to the 
gear train. Therefore, the tangential forces acting on the 
gears of the fixed axes gear train, are identical to those in 
the actual PGT. Only the pitch-line velocities of the gears 
have been changed. With the pitch-line velocities being 
equal to the velocities of engagement in the PGT, the rela- 
tive motion caused by carrier rotation has been eliminated, 
while maintaining the same transmitted forces between gears. 

The absolute angular velocity of the input gear can be 



Ring gear, C 


Sun gear. 



Input shaft, D 7 


T 


Output shaft, H 
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calculated as: 


“A 


" “A 


to 


H 



The angular velocity of the output shaft now becomes. 


(3.2) 



(3.3) 


with the minus sign denoting opposite rotations. 

Note that since the ring gear is always larger than the 
sun gear, in Equation 3.1, the value of mp will always be 
greater than one. Consequently, the velocities of engagement 
of gears in a PGT are less than those in a corresponding 
conventional gear train comprised of the same gears having 
the same input angular velocity and power. Since the tangen- 
tial forces acting on the gears remain the same, the power 
developed by a PGT is lower than in a conventional gear 
drive. This implies that the dynamic tooth loads and wear, 
which are functions of the transmitted force and velocity of 
engagement, should be reduced in the PGT. 

A kinematic examination of the PGT validates the 
equivalent engagement approach. This can be shown by 
selecting an arbitrary contact position along the line of 
action between the sun gear and a planet gear (Fig. 13). As 
the sun rotates through an angle 9 S , the rotation of the 
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output carrier is: 


0 

c 


Nr + N S S 


(3.4) 


Through the carrier rotation 0 C , equal arcs are swept out at 
the planet/ring contacting gear pair. 


RPC R 0 C = -RPC p 0 p . (3.5) 

The minus sign is required since the planet and carrier 
rotate in opposite directions. The angular displacement of 
the planet gear about its own axes is: 
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RPCp c 


( 



0 

c 


n r n s 

N p (N r + Ng) 



(3.6) 


From Fig. 14, the sun/planet contacting gear pair have ad- 
vanced along the line of action through an angle 0 g,due to 
the rotation 0g. From equivalent arc lengths, 

RBCg 0 g = -RBCp0 p . (3.7) 


9 S = 


RBCp 

RBCi - 


= . N P 


N R N S 

Nd(N r 


Ng) 


Thus , 
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Due to the carrier rotation, the contact point advance- 
ment is retarded along the line of action by the factor 

(1 - ^j-) , the same as derived in Eq. 3.1. Since no external 
P 

forces have been applied, the analysis of the sun/planet and 
planet/ring static and dynamic behavior may be done by 
restricting the planet to rotate about its own axis, keeping 
the input torque the same, and calculating a new, effective 
input angular velocity at the sun gear. 

Although this investigation is primarily concerned with 
planetary gear drives, the concept of the equivalent 
conventional gear train can be extended to also include the 
star and solar gear arrangements. The same principles and 
techniques may then be used to evaluate those drives 
(Appendix B) . 

3 . 4 . 2 . 1 Phase Relationships Between Sun/Planet/Ring Mesh 
Stiffnesses 

As stated in the literature survey, the main sources of 
dynamic excitation in geared systems are the variable- 
variable mesh stiffness (VVMS) functions and their discon- 
tinuities. In both parallel and co-axial shafted spur gear 
transmissons, the operational gear mesh stiffness is probably 
the single most important element in performing the static 
and dynamic analysis. Even in theoretically errorless 
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gearing, discontinuities in the mesh stiffness exist caused 
by the periodically changing number of teeth in contact. The 
only exception to this would be the case where the contact 
ratio is a whole number, implying that a gear tooth pair 
initiates contact sijnulaneously as the preceding tooth pair 
is concluding contact. In this “manner, the number of teeth 
in contact would remain constant. Additional discontinuities 
are introduced when gear tooth errors exist which interrupt 
contact, thus altering the normal gear mesh stiffness charac- 
teristics. Increased system compliance and transmitted load 
also affect the mesh stiffness by increasing pre- and post- 
mature contact and decreasing the effect of gear tooth 
errors. An assumption that mesh stiffness values remain 
constant, or even that the mesh stiffnesses are equal for the 
sun/planet and planet/ring engagements, is completely 
unacceptable for realistic analyses of planetary gear trains. 

Determination of the mesh stiffness as a function of 
fully loaded and deflected gear teeth in both the external- 
external and external-internal meshes (Fig. 15) must be 
completed before attempting any further analysis. The 
methodology used in determining the VVMS is described in 
Appendix A. To accurately determine the WMS, the following 
parameters must be considered: 

a. Magnitude of transmitted load 

b. Gear tooth profile errors 

c. Position, of contact 

d. Number of contacting tooth pairs 


Mesh Stiffness 


\PSIEPE 



Figure 15 - Mesh Stiffness as a Function of Engaged 
Gear Tooth Position 
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e. Operational contact ratio 

f. Gear and hub geometry 

In Figure 7, three planet gears are shown symetr ical ly 
situated about the sun gear. Although equally spaced, the 
planet gears generally do not share identical contact 
conditions with each other. This can be explained by 
examining the number of teeth on the sun and ring gear, 
respectively. If the number of teeth is not evenly divisible 
by the number of planets, the planets are not spaced a whole 
number of tooth pitches apart. Subsequently, different 
contact conditions must exist for each planet. The differ- 
ence in contact includes the position of contact on the 
meshing teeth as well as the number of teeth in contact. In 
fact , it is often clearly desirable to have nonidentical 
conditions to minimize the variation of the mesh stiffness 
about the sun and planet gears [13,14]. 

This model can determine the magnitude and phase 
relationships of the mesh stiffnesses at all load transfer 
points. These relationships will affect both the static and 
dynamic behavior of the PGT. For example, in a low speed, 
quasi-static operation, the sun gear will move, if allowed, 
in a manner such that loading is equally distributed among 
the planet gears. The motion of the sun will be governed by 
the sun/planet mesh forces and the supporting mesh stiffnes- 
ses. Dynamically, the VVMS's phasing directly affects the 
excitation in the drive train, especially at the mesh fre- 
quency and its higher harmonics. 
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Phasing of the VVMS's depends on maintaining a static 
equilibrium condition about the sun gear such that the sun 
gear mesh forces collectively create a torque equivalent to 
the input torque. Also, the sum of the torques acting on 
each planet must be zero. This way, the planets experience 
no net torque, and the hub deformations on the planet at the 
sun/planet and planet/ring meshes remain localized. Planet 

gear teeth outside the two contact zones are thus, unaf- 
fected . 

The phase relationships in the loaded mode between the 
individual gear tooth meshes are established by analyzing the 
planet positions about the sun gear. These are used to 
determine the i— sun/planet and planet/ring mesh stiffnesses 
based on the instantaneous angular positions of the sun and 
planet, respectively. The first planet is positioned such 
that one incoming tooth pair is initiating contact between 
the sun and the planet. This position is then used as the 
reference point for the remaining planets. 

The values of the fully loaded VVMS's for the j th 

planet's engagement states are referenced against this 
position by: 


K SPi( 0 s) = K SPl( 0 S + tsi ) (3.9) 

Kp Ri ( 0 p) = Kp R 1 (e p + <j> pi + cj, SR ), (3.10) 


where: 


9g = Instantaneous sun gear position. 

K spi = Sun/planet loaded mesh stiffness as a 
function of 0 S . 
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<j> si = Phase angle for the i ill sun/planet mesh. 

6p = Instantaneous planet gear position. 

KpRi = Planet/ring loaded mesh stiffness as a 
function of 6 p . 

(j> p . = phase angle for the il£ planet/ring mesh. 

a = Phase angle between the start of contact at 
TbK the sun/planet mesh and the start of contact 

at the planet/ring mesh. 

The plase angles, 4si an< ^ ^Ri' are based on the spacing of 
the planets about the sun gear (Fig. 16) and the individual 
loaded gear mesh stiffness cycles. These are calculated by: 

A = .81 * PSITPE. (3.11) 

T Si 2n i 


<h = 11 * PSITPI . (3.12) 

T Pi 2n i 

where: 6 = 2 ir ( i-1) 

i 3 

PSITPE- = Load sun/planet gear mesh stiffness cycle, 
radians . 

PS ITPI ^ = Loaded planet/ring gear mesh stiffness 
cycle, radians. 

The phase angle, cj> SR , relates the engagement state at the 
reference planet between the sun/planet and planet/ring 
meshes. The angle is calculated through an iterative process 
which considers the theoretical, undeflected contacting gear 
teeth positions and then the actual deflected positions. 

The first step requires positioning the reference planet 
such that an incoming tooth j would be initiating contact at 
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theoretical/ no-load conditions (Fig. 17). The deflected and 
undeflected centerline angles of the initiation of gear tooth 
contact at the sun/planet and planet/ring engagements have 
been previously determined absolutely as detailed in Appendix 
A. Since this orientation is done under no-load conditions, 
the position of tooth k is also determined. Next/ the 
position of tooth j is adjusted to reflect the actual, load 
conditions (Fig. 18). Since the deflections are assumed to 
be localized, the position of tooth k remains fixed. 
Finally, the planet is rotated until tooth k has reached the 
position of initiating fully loaded contact (Fig. 19). 
Concurrently, tooth j has advanced by an amount of 4 sr 
radians, which now becomes the phase angle relating the 
contact conditions between the sun/planet and planet/ring 
meshes . 

Knowing the phase relationships of all the individual 
meshes allows the static loading and positioning to be 
determined simply as a function of the angular position of 
the sun gear. This is an important index as it will allow 
the monitoring of the rotation of seven elements and the two- 
dimensional translation of the sun gear through one 
independent variable. The techniques used in the static 
analysis are implemented in the investigation of the dynamic 
behavior of the PGT. 

3. 4. 2. 2 Incorporating Planet Positioning Errors 

Any attempted modeling of a physical system must 
acknowledge the existence of errors and allow for them in 



^ p R = Angle at start of 
; undeflected contact 

Y = 7T / if TGP is even 

TGP 

Y = ir lf TGP is odd 


Figure 17 - Tooth j Initiates No-Load Contact 
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i|; = Angle at start of 

deflected contact 


Figure 18 - Tooth j Initiates Fully-Loaded Contact 
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their simulation or offer sufficient evidence that these 
errors are negligible, their effect is small in comparison 
with other disturbances, and therefore, may be omitted. 
Significant system errors which may occur through the quality 
of manufacturing and assembly of PGT's are: 

a. Gear geometry errors 

b. Radial positioning errors of planets. 

c. Tangential positioning errors of planets 

Since manufacturing techniques are inexact, gears do not 
possess the ideal involute geometry. Instead, they may have, 
to varying degrees, deviations from the true involute, 
thickness error, spacing error, or even develop errors such 
as pitting after prolonged use. These errors may interrupt 
contact, introducing additional dynamic excitations in the 
system. In this model, it is not necessary that all the 
planets reflect the same gear error. By separately 
establishing the mesh stiffness characteristics for each 
planet, it is possible to examine the effect on gear errors 
on just one planet, rather than identical errors on all n 
planets . 

Figure 20 shows a planet with tangential, e ^>, and 
radial, e R , positioning errors. These errors are measured 
from the position the planet would occupy if it were properly 
located. The magnitude of the combined effect of these 
errors can be taken as the eccentricity, e, where: 



e = 


(3.13) 
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Previous investigators have generally ignored eccentricity 
errors since tooth errors are found to have a much greater 
effect on dynamic loading [11, 21]. This investigation will 
consider the tangential component since this directly affects 
the phasing of the mesh stiffnesses among the components. It 
can be easily shown that the effects of the radial component 
of the positioning error is indeed small in comparison with 
tooth errors. 

Investigations by Richardson, Kasuba, and Harris, have 
shown that for high quality gears, errors present are 
sinusoidal in nature. Thus: 


£ t = e tmax* in < Mt ~ a) (3.14) 

e r = e R sin(0 p t - Y) (3.15) 


where : 


e t = tooth error 

e r = radial error 

to = tooth engagement velocity 

0p = angular velocity of gear 

a,y = phase angles of errors with respect to 
correct tooth position 


The frequency of tooth error is the same as the tooth 
engagement frequency and can be found from the number of 
teeth on the planet (TGP) and the angular velocity by: 


to = TGP * e p . (3.16) 

The frequency of radial error is the same as speed of 
rotation since there is one cycle of radial error for every 
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rotation of the planet about its axis. The resulting accel- 
erations caused by tooth and radial errors can be found by 
differentiating Eqs 3.13 and 3.14 twice with respect to time: 


2 . 

— ± = -t tocsin (cot - a) 
3 t 2 tmax 


(3.17) 


d 2 ,. 


dt 2 


- £ tmax TGp20 p sin ( T GP * 6 p - a) 

-e 0 2 s in (0 - y) 

R P P Y 


(3.18) 


If TGP - 28, and e tmax = 0-1 R' accelerations caused by 
the tooth errors are still almost two orders of magnitude 
larger than those caused by radial error. Consequently, 
radial errors may be ignored [26]. 

While the effect of the radial error has been dismissed 
by previous studies [11], the tangential error may not be so 
lightly dismissed. The reason for this is the interdepen- 
dence of all the su n/p 1 ane t/r i ng mesh stiffnesses. The 
tangential errors could cause either a lead of a lag error in 
the engagement characteristics of a particular planet. Also, 
some commercial designs, such as the Stahl-Laval model CPG, 
purposely use asymmetrically spaced planets. The tangential 
error can be incorporated into the model by readjusting the 
planet spacing calculation in Eqs. 3.11 and 3.12 (Fig. 21). 
If , 


ei 




RPC S + RPCp 


(3.19) 
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Then the spacing angle, becomes; 

3 = + 6 (3.20) 

1 J ^ 1 

The sign on 0 £i is positive if the planet leads its design 
position, negative if it lags. 

3.4.3 Synchronous Positioning of PGT ' s 

An important parameter in the modeling of a system is 
the determination of the time period in which physical events 
re-occur. Since this investigation is concerned with the 
steady-state operation of a PGT, it is necessary to find the 
period, t, such that: 

S (0 S + T0) s = S (0 S ) , (3.21) 

where S is a function of system response based on loading and 
displacement, and 0 S is the input predicated by the monitored 
position of the sun gear. Thorough examination of the system 
through one period would then be sufficient to develop a time 
history for the system, and to make time based judgements on 
design parameters such as fatigue failures. 

A static evaluation through one period must be done to 
establish baseline values for the mesh forces against which 
the dynamic forces will be compared. The time period is 
important dynamically for two reasons. One, it determines 
how long the differential equations describing the system 
must be evaluated to eliminate transient behavior and assure 
steady state operation. Second, it determines the time 
increment required for stability during the numerical 
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integration of those equations. 

A synchronous position is defined as one where a 
predetermined state of engagement between all 2n gear meshes 
is repeated, and the period is defined as the elapsed time 
between synchronous positions. In the case of the PGT shown 
in Figure 7, the synchronous position would occur when planet 
#1 returns to the 12 o'clock position, with the #1 sun tooth 
engaged with the #15 planet tooth, and the Nos. 2 and 1 
planet teeth engaged with the Nos. 1 and 70 ring teeth. For 
the particular case shown, for one revolution of the output 
shaft, the planet rotates 2.5 times about its own axis. 
Therefore, the output shaft must rotate twice and the planet 
five times about its own axis to duplicate the initial 
engagement state. The five planet rotations mean there are 
five times 28, or 140 engagement cycles between synchronous 
positions. The engagement cycle is defined as the mesh cycle 
which is extended due to pre- and post-mature contact caused 
by elastic deflections. 

For the case where the planets have identical errors, 
and therefore, identical stiffness functions, the period of 
the synchronous position is shortened to just the period of 
the meshing cycle. Since there are no singular planet 
errors, the synchronous position is repeated with the 
beginning of contact of two gear teeth between the sun and 
reference planet. 

3.4.4 Static Load Sharing Among Planet Gears 


Previous experimental investigations have confirmed the 
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fact that allowing the sun gear to float tends to equalize 
the load distribution among the planet gears. It is the 
purpose of this section to formally develop a static model 
based on a sun gear with variable fixity, mathematically show 
that for static conditions this model correctly predicts the 
proper load sharing, and further refine the model so it can 
be used in an efficient, computer algorithm. 

Other studies [19, 24] have assumed that the sun gear 
was not centered and determined equivalent torsional models. 
The sun motion was then calculated based on influence 
coefficients from all the mash stiffness. This technique 
affords no way of allowing for adjustments in the sun 
support. Also it cannot be used to determine planet load 
sharing i.f the support is soft, i.e., the support is not 
stiff enough to fix the sun center, but it is stiff enough 
that it is not negligible. 

Figure 22 shows the static model of the equivalent 
conventional gear train used for improving this study. The 
sun and ring mesh stiffnesses are represented by k si and k ri , 
respectively. As described in the preceding section, these 
values are functions of 6 S , the angular position of the sun 
gear. The angular position will be some interval of one 

synchronous cycle. The sun support stiffness is modeled by 
two equal perpendicular springs, k', whose values can be 
varied to simulate different degrees of fixity on the sun's 
center. Figure 23 shows the coordinate system used in the 
static development. 
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The static analysis determines the motion of the compo- 
nents relative to the sun gear. Therefore, 9 S may be taken 
as zero. Only the torques about the planets and ring gear 
need to be considered to find their relative angular dis- 
placements and the translation of the sun gear. Summing up 
the torques about the ring when the sun is at the j— — 
position gives: 

n 

l RPC R [K Rij (RPC p 0 i;j - RPC R 6 Rj )] = T out (3.22) 

i = l 

The forces acting on the iiil planet are affected not only by 
the relative angular displacements, but also by the 
translation of the sun. Summing up the torques about the i-£J2 
planet gives: 


RPC P K Ri j ( rpc r 0Rj - RPC p 0ij) + RPCpK si j (RPCgQgj - RPCp^i j) 

+ RPC p K si jXgjeos ^ + RPC p K si jY s jsinc^ = 0 (3.23) 

Finally considering the static equilibrium of forces on the 
sun gear in the x and y directions gives: 

-K s x S j + K si j ( (RPCp0j j - RPCg0g) - Xgcosaj - y s sina^ ] cosa^ =0 

(3.24) 

-KgXyj + K si j t (RPCp 0£ j - RPCg ^) - x s cos - y g s i n ] s i n =o 

(3.25) 

These equations can be combined in matrix form: 

[K] {$} j = {V} (3.26) 


where : 


$ = displacement vector 
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= I 9 r' 0 lf • • • r 0 n • X S> ys^ T 
V = force vector 

= ["^out^ •••* 0/ 0 f 0]^ 

K = stiffness matrix (Fig, 24) 

The relative displacement vector, $ , can now be solved simply 
by using a Gaussian elimination and back substitution 
technique. The matrix symmetry also allows the stiffness 
matrix to be quickly assembled. 

Since the sun rotation is 0, and the mesh force is 
calculated by the relative displacement along the line of 
action, the i£Jl planet load for the jiil position of the sun 
gear is: 

F ij = K Sij REC P 0 i (3.27) 

With the planet being in static equilibrium, this force must 
be equivalent to the force transmitted by the planet/ring 
mesh. Finally, to check whether the proper relative motions 
and transmitted forces have been calculated, the input and 
output torques must be balanced through the following rela- 
tionships: 

n 

T in = E F ij * RBC S (3.28) 

i = 1 

n 

T ou t = E F ij * rbc R (3.29) 

i = l 

The sun gear bearing support reactions are: 



(matrix is symmetric) 


-RPC RPC K 
R P R2 

0 

RPC p (K S2 + V 

• 

• 

• 

• 

• 


• 



• 

• 

0 

• 



• 

• 


• 

• 

• 

-RPC RPC K 
R P Rn 

0 

0 

• • • 

RPC^OC + K ) 

P Sn Rn' 

• 

0 

-RPCpK^cosO^ 

_RPC P K S2 COSa 2 

• • • 

-RPC K cosa 
P Sn n 

K* + ZK cos 2 a. 

Si l 

0 

■ RPC P K si sina i 

“ RPC P K S2 Sina 2 

• • • 

-RPC_K_ sina 
P Sn n 

Ek, . cosa. sina. 
Si i i 


Figure 24 - Stiffness Matrix 
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n 

F xj = l F ij cosa i 
i=l 

n 

Fy^ = £ F^jsina^ 

i=l 

3 . 5 Dynamic Analysis 

The gear train to be used for the dynamic analysis is 
shown in Figure 25. The gear train is comprised of a power 
source, load, the equivalent planetary transmission, and the 
input and output shafts and their bearings. .It is capable of 
considering fluctuating output torque: damping in shafts, 
gears and bearings; non-involute gear meshes; and loss of 
contact between gear teeth. The dynamic model of this gear 
train has a total of nine degrees of freedom. The sun gear 
has three degrees of freedom, two transverse and one 
rotational. The driver, planets, ring, and the load have one 
degree of freedom (rotation). It was assumed that this was 
the minimum number of allowable motions to accurately 
simulate the gear train behavior without making the analysis 
overly cumbersome. Assumptions for restrictions on the 
motion of the planet gears seem valid since the bending 
stiffnesses of the planet shafts are generally much greater 
than the mesh stiffnesses. According to experimental results 
[20], the displacement of a ring gear as a rigid body is 
small in the radial direction. So, it can be assumed that 
the ring gear has no planar motion. The coordinate system 
given in Figure 23 is also used in the dynamic analysis. 


(3.30) 


(3.31) 


# 


1. Driver, J D 

2. Input shaft 



Figure 25 - Gear Train Model Used for Conventional Gear Train 
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The equations of motion used to calculate the 
instantaneous dynamic loads are based on the equivalent 
companion gear train shown in Figure 15. By adding the 
negative angular velocity of the carrier to the angular 
velocities of the components shown in Figure 25, the effect 
of the carrier rotation on the pitch-line velocities is 
eliminated. Therefore, the equations of motion need only to 
consider the effective engagement velocities. 

The inertial influence of the carrier on the dynamic 
loads can be preserved by assigning an equivalent moment of 
inertia to the ring gear, which now becomes the transmission 
output element. The equivalent ring gear inertia should be a 
function of the planet and carrier masses. 

The equations of motion developed for the companion gear 
train use the instantaneous parameters determined during the 
static analysis for various mesh arc positions. These 
parameters are based on the instantaneous rather than the 
theoretical line of action. Dynamically, their effect is to 
change the transmission ratio to reflect the actual contact 
condition as influenced by deformation in the contact zone 
and tooth profile errors. For example, if contact occurs 
above the intended line of action, the effective base circle 
radius of the driven gear is reduced, decreasing the output 
torque. This can be expressed as: 


RBC ' = RBC * np/G 
T out a T out * ^ P/G ' 


(3.32) 

(3.33) 
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where: RBC ' - instantaneous base circle radius 

RBC = theoretical base circle radius 

i 

T out = instantaneous output torque 
T ou t 3 theoretical output torque 

rip/c 3 P er cent effective reduction due to 
pinion/gear deformation 

For the PGT modeled, the input torque will be assumed to 
be constant, while the output torque will vary according to 
the change in the effective base circle radii of the planet 
and ring gears, respectively. The derivation of the instan- 
taneous output torque can be started by examining the 
equivalent conventional gear train with just one planet. If 
all components were considered rigid, the output torque would 
be: 


T 

out 


• RBCp RBCp 

SS £> * IT ★ <p 

RBCp RBC g in 


(3.34) 


If the instantaneous transmission parameters due to profile 
errors and modifications, deflections, height of engagement, 
and angular position of engagement are now considered, the 
effective output torque becomes: 


T 

out 


R BC R * hp/R * RBCp * n p/s * T 
RBCp RBC 2 in 


■ RBC R * hp/R * n s/p * T in /RBC S , (3.35) 


where: hp/ R = per cent change of RBC R due to planet/ring 

deformation 

hs/p = percent change of RBC p due to 
/ deformation 


su n/p 1 anet 
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The term T in /RBC S is the force transmitted along the 
line of action of the sun/planet mesh. Therefore, for an 
arrangement with n planets, the instantaneous output torque 
is : 

Tout - rbc R * (n p/R * n s/p * GPTFE) j (3 . 36) 

where: GPTFE = sun/planet gear pair transmitted force based 

on load sharing 

j = instantaneous values at the ji_h position of 
the sun gear 

The differential equations of motion for the components 
of the equivalent companion gear train in Figure 25 are: 

Driver 

JD^D + C BD^D + C DS^D " * S > + K DS (fy) “ ^S> = T in (3.37) 


Sun Gear 

J S^S + C Bsh + C DS^S - + k DS^S " > 

n 

+ l (RBC S * GPTFEi) = 0 (3.38) 

i=l 

n 

+ l [GPTFEi * cos (ir — 4> - ( i-1 ) *2 7r ) j = Q 
i = l n 

(3.39) 
n 

+ l [GPTFEi * sin (tt - <|> - (i-1) ] = 0 

i = l n 

(3.40) 

Planet i 

J p^i + Cp^ - RBCp(GPTFI i - GPTFEj) = 


M S X S + C S X S + K S X S 

M s^*s + c s*s + K s^s 


0 


(3.41) 
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Ring 

J R^R + C BR^R + C LS^R “ + K LS^R “ RBC R 

(3.42a) 

n 

+ l (RBCp * GPTFIi) = 0 
i = l 

j r = (J c + 3J p ) + (M c + 3M p ) RPCp (3.42b) 

Load 

J L^L + C BL^L + C LS “ ^R* + K LS ~ = -T OUt 

(3.43) 

The variables GPTFE^ and GPTFI ^ are the gear pair trans- 
mitted force for the i-£ll external-external (sun/planet) and 
internal-external (planet/ring) meshes, respectively. They 
represent the dynamic response of PGT meshes to the excita- 
tion provided by the discontinuities in the mesh stiffnesses 
and changes in the transmission ratio. At each mesh, three 
situations can occur based on the relative dynamic motions of 
the involved gears. These are: 

i) If RBCj^j < RBC k ^ k 

where: j = driven gear 

k = driving gear 

then normal operating situation exists, and the dynamic 
transmitted force is: 

GPTFEi = C spi [RBCg*^ - RBCp* ^ + XgCOSC^ + y s sina.] 

(3.44) 

+ K spi (RBC S * - RBCp*^ + XgCOSC^ + ygsinc^] 
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GPTFI ^ = C PRif RBC R*^R “ RBCp*^.] 
+ K pRi [RBC R *^ R - RBC^i] 


(3.45) 


ai = tt - <J) 


_ (i-l)*2^ 


n 


RBCj^j > RBC^- 


ii) If 

but, (RBCj'J'j - RBC^i) < BACKLASH 


the gears have separated, disrupting contact between the gear 
teeth. The gears are now rotating independently of each 
other. 

So , 

GPTFEi = 0 (3.46) 

GPTFI ^ = 0 (3.47) 

iii) If RBCj^j > RBCj'J'i 

and, RBCj’J'j - RBCj ^ > BACKLASH 

The driven gear has impacted on the backside of the driving 
gear tooth immediately preceding it, and the line of action 
is momentarily reversed. Therefore, 


GPTFEi = C spi * (RBCg*^ - RBCp*^ + Xgcosa. + y s sind.] 

(3.48) 

+ K SPi* ( RBC S*^S “ RBCp*^ + xcosct i + ysina - BACKLASH] 


GPTFI 


58 C pRi *[RBC R *tf R - RBCp* 'I'i ] 

* KpRi* IRBC r* - RBCp^^i - BACKLASH] 


(3.49) 
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In cases i and iii, if the instantaneous K sp ^ or K pR £ = 0, 
then the respective transmitted force is zero. 

The equations of motion contain damping terms for the 
components in addition to the stiffnesses. The damping 
component in the bearings has been combined with the element 
located nearest that particular bearing, i.e., damping from 
the inboard drive bearing, C BS , is included in the sun gear 
equation. Based on published experimental results [26], a 
critical damping ratio of ? s = 0.005 has been used to 
calculate the effective shaft damping. The shaft masses have 
been taken to be the effective mass between the connected 
masses. Thus, 


'DS 


'LS 



The critical damping ratio for engaged gear 
has been measured to range between 0.03 and 0.10 
The effective damping of the gear meshes is. 


(3.50) 


(3.51) 


teeth, 5 g , 
[6], [25]. 



(3.52) 


(3.53) 


Since, the damping is shown as being a function of gear mesh, 
this term will change throughout the various mesh arcs. 
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The equations of motion (Eqns. 3.36 - 3.43) represent a 
system of nine, simultaneous, linear second-order differen- 
tial equations with periodically varying coefficients. The 
initial displacements of the gears are determined using the 
technique described in Section 3.4.4. These values are found 
by solving for the vector <S> . The stiffness matrix, K, would 
be based on positioning the gears such that an arbitrary sun- 
gear pair is initiating contact with the No. 1 planet. 

The initial positions of the driver and load are 
referenced against the initial position of the sun gear, 
which was taken to be zero. Since the driving torque and 
driver displacement act in the same direction, the initial 
displacement of the driver is: 

= T in/ R DS (3.54) 

The load torque acts in the opposite direction of the load 
displacement. Therefore, the initial displacement of the 
load is: 

\ = *R - T out/ K LS (3.55) 

where is the initial absolute displacement of the ring 
gear. The initial angular velocities are set to be the 
nominal steady-state equivalent engagement velocities as 
determined in section 3.4.1. The initial translational 
velocities of the sun center are taken as zero. 

The equations of motion are numerically integrated by 
using a fourth order Runge-Kutta method. The integration 
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time increment is based on the shortest natural period of a 
system with comparable stiffness parameters. Since the gear 
meshes have time varying stiffnesses, the system has no 
discrete natural frequencies. Even if average stiffness 
values are used, the process to solve for the natural 
frequencies of a nine degree of freedom system becomes a 
tedious exercise. Appendix C gives a method for solving the 
natural frequencies of a PGT based on constant, average mesh 
stiffness, as well as a technique to set up a simplified 
model to determine a natural period from which the 
integration time step may be determined. The time stop is 
taken to be one-tenth of the shortest natural period. At 
higher input speeds, the mesh period decreases to the point 
where it is equal to the natural period. At this point, and 
for all higher input speeds, the integration time step is 
taken to be one per cent of the mesh stiffness period. 

The numerical integration duration is left as a user 
input variable. The integration should be carried out at 
least for a length of time sufficient for the start-up 
transient to decay. The proper length of integration is 
dictated by how often the synchronous position occurs in the 
model. As mentioned in Section 3.4.3, if all n planets have 
either no or identical profile errors, a synchronous 
positions takes place as often as each new tooth engagement 
at the reference sun/planot mesh. For these conditions, the 
integration duration should be the time required for the sun 
gear to make one complete revolution. If all n planets have 
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distinctive errors, the synchronous position occurs much less 
frequently and the length of integration should be adjusted 
accordingly. 

During the entire integration process, results from the 
static analysis programs are used to determine the following 
dynamic information: 

a. How the individual mesh dynamic loads are shared 
among the contacting tooth pairs during periods of 
multiple tooth contact. 

b. Variation of the transmission ratio of a contacting 
tooth pair as the pair moves through the contact 
zone. 

While individual mesh parameters are based on static 
results, system behavior, such as load sharing among planets 
and movement of the sun center, is calculated independently 
and entirely from the differential equations of motion. 
Consequently, comparing the dynamic results for a quasi- 
static operating state with the static results should offer a 
guide as to the validity of the dynamic model and the 
integration process. 

For the dynamic analysis, it is assumed that the loaded 
mesh arcs are of the same length as those experienced in the 
static mode. This is a reasonable assumption because the 
rapidly changing loads should not cause a permanent change of 
the meshing arc lengths. It is also assumed that the sun 
center motion has little affect on the mesh stiffness 
characteristics. This seems acceptable because the magnitude 
of the sun center displacement is smaller than what Hidaka 
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(23] and Pintz [7] considered was necessary to appreciably 
affect the meshing characteristics. 

With these assumptions, the dynamic absolute angular 
displacement of the sun gear is used to interpolate mesh 
conditions in the static mode for all 2n gear meshes in the 
PGT. In such a manner, the parameters listed above are used 
in the interpolations between dynamic and equivalent static 
positions to calculate the dynamic mesh forces. 

The dymanic mesh force represents the amount of load 
increment due to the periodic excitations within the system. 
The dynamic load factor is used as a means of measuring this 
increment based on the nominal static load. It is also used 
as a penalty to de-rate the load capacity of a PGT based on 
the transmitted power. There are two ways of calculating the 
dynamic load factor. One is based on the total dynamic mesh 
force at each engagement, the other is based on the load 
sharing that occurs within that mesh. 

In the first case, the dynamic load factor at the 
position is defined as: 


GPTF; 


DF, . . = „ 

113 Q- 


i = 1, . . . , n 


(3.56) 


where: GPTFj = dynamic gear pair transmitted mesh force 
Qj = nominal static transmitted mesh force 

The force Qj is calculated in the static analysis and is 
determined by the load sharing within the system. DF]_ij can 
be thought of as the dynamic load factor of the individual 
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gear mesh and its shafts and bearings. 

The dynamic load, QD, for the k£J2 contacting gear tooth 
pair at the jJii2 dynamic mesh position is: 


Di jk 


KP ik 


KP 


Q. i = 1, 


1 3 


(3.57) 


where: KP k = gear tooth pair stiffness 

Kjj = total mesh stiffness 

The second dynamic load factor can be defined as 


DF 


2i jk 


QD ijk 
9i jk 


(3.58) 


The force Q i; j k is the component of the total force which 
is transmitted by the kiiii contacting gear tooth pair. It 
also is calculated in the static analysis. DF 2ijk the 
dynamic load factor for an individual gear tooth pair 
traversing the mesh arc. It is particularly important when 
the strength of the gear teeth is of primary concern. The 
larger of the two calculated dynamic load factors will be 
used as the design dynamic load factor, DF. 


3 . 6 Computer Programs 

The development of a set of computer programs which 
implement the analytical work presented in Sections 3.4 and 
3.5 was one of the stated goals of this investigation. These 
programs constitute a comprehensive, analytical tool enabling 
the user to quickly evaluate PGT transmission designs. The 
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programs were written with the intent of running them on a 
mini-computer system. Memory constraints of mini-computers 
place a premium on efficient programming techniques, and, the 
direct inter— active capabilities offer the user much more 
flexibility in executing these programs than is available in 
batch mode systems. The computer programs in their entirety, 
along with sample outputs, are listed in Appendix D. 
Highlights of the computer programs, their structure and 
inter— dependence, explanation of data transfer, and results 
available for output are discussed in this section. 

The PGT transmission analysis package is written in 
Fortran IV for use on a Hewlett Packard HP— 1000 F Series 
computer with the RTE-IVB operating system. The programs 
have been arranged into three groups which may be classified 
as the pre-processor, processor, and post-processor. Figure 
26 shows the block diagram of the entire package. Each 
program may be compiled, loaded, and executed independently 
w ith its results being stored in data files for either 
immediate examination, or use by subsequent programs. The 
parallel development of external-external and external- 
internal spur gear programs also enables the user to evaluate 
a single stage parallel-shafted transmission. 

3.6.1 Pre-processor 

The pre-processor group consists of the programs which 
do the following tasks: 

a. Accepts, and organizes input data, and writes input 
data to a data file 
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PRE-PROCESSOR 


PROCESSOR 


POST-PROCESSOR 


Figure 26 - Block 'Diagram of Programs 
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b. Defines tooth profile 

c. Determines stiffness characteristics of gear teeth 

The programs EXPRO and INPRO define the tooth profiles 
by digitizing the involute into 100 points defined by a gear 
based coordinate system. Both standard and non-standard gear 
forms can be digitized. These programs also check for 
interference between mating teeth and calculate the 
theoretical contact ratios. These results are written to 
data files EXPROD and INPROD The programs EXDEF and INDEF use 
these results to calculate tooth deflections due to a unit 
load as it is applied to all the digitized profile points. 
These results are written to data files EXDEFD and INDEFDT 
for use in the processor programs. 

3.6.2 Processor 

The processor group contains the programs which perform 
the actual static and dynamic analysis of the PGT. The 
static analysis for an external-external and an external- 
internal mesh are done as parallel tasks. These results are 
then combined based on the configuration of the PGT. The 
dynamic analysis is then performed taking into account all 2n 
individual mesh stiffnesses. 

The static analysis EXSTA and INSTA use an iterative 
process to solve the indeterminate problem of static load 
sharing among multiple tooth gear meshes. First, the gears 
are treated as perfectly rigid bodies in order to use 
geometric analysis techniques to establish points of contact 
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for 50 positions in the mesh arcs. Then the results of EXDEF 
and INDEF are used to redefine the tooth profiles to reflect 
the loaded and deflected engagement conditions at 50 
positions along the now extended mesh arc. In this manner, 
it is possible to determine the stiffness of the individual 
pairs, as well as the variable mesh stiffness as a function 
of the driving gear's position. 

Because of the length of these programs and memory 
limitations of the HP— 1000, it was necessary to use 
segmentation techniques to enable these programs to be 
executed (Fig. 27). Since both programs have identical 
structures, common segment names have been used. Segment 
MAIN acts as the executive controller for the programs. It 
and stores the profile and deflection data previously 
calculated. Segment PARTI determines the initial and final 
positions of contact, establishing the extremities of the 
mesh arc. Segment PART2 then determines the position of 
contact and remaining static mesh information for 48 equally 
spaced positions within the mesh arc. By executing PARTI and 
PART2 in a two-pass do-loop, it is possible to evaluate first 
the unloaded, rigid body, and then the loaded and deflected 
behavior of the gear mesh. 

EPCYC assembles the mesh information from EXSTA and 
INSTA for use in the dynamic analysis. The main task of 
EPCYC is to properly orientate the mesh stiffness of all the 
sun/planet and planet/ring engagements to properly show the 
phase relationships among them. This will allow tracking and 
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I = 1 £ Rigid (unloaded) analysis 
I = Deflected (loaded) analysis 

Part 1 - initial and final 

postiions of contact 


Part 2 - static mesh information 

(contact position, stiffness 
etc) within the mesh arc. 


Figure 27 - Segmentation of EXSTA and INSTA 
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interpolation of all the mesh characteristics as a function 
of the sun gear position. 

The program INTEG performs the numerical integration of 
the differential equations of motion given in Section 3.5. 
The calculations are based on a dynamic cycle which starts 
with the initiation of contact as a tooth pair enters the 
contact zone and ends with the initiation of contact with the 
following tooth pair. INTEG examines the mesh stiffness 
function for the reference sun/planet mesh to determine the 
arc length of this cycle. This arc length is then compared 
against the absolute dynamic angular position of the sun gear 
to establish the number of sun gear mesh engagement cycles 
which have been integrated, and also to interpolate the 
instantaneous position within the mesh arc of the currently 
engaged sun/planet gear teeth. By tracking the sun gear 
position this way, it is possible to interpolate mesh 
stiffness values for all the remaining gear meshes and 
calculate their instantaneous dynamic forces. 

The total number of sun gear mesh cycles to be 
integrated is user defined andshould bebased on the 
synchronous positioning of the PGT. As defined in Section 
3.4.3, a synchronous position occurs with a duplication of a 
reference engagement state. After completion of integration 
of the p r e-de term ined n number of sun gear mesh cycles, the 
dynamic force data is stored in a buffer, which is then 
written to a data file. By varying the data sampling rate, 
the user can adjust the length of integrated time over which 
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data is stored.' In the present version of the program, a 
buffer length of 6000 elements is used to store the results. 
This allows the storage of 6000/(m+l) independent, i.e., 
time, and 6000/ (m+1) dependent values for m variables. 

The integration of the differential equations is done 
using a fourth— order Runge— Kutta technique. This is per- 
formed by the use of two subroutines in INTEG, RKUTTA and 
MORERK. The subroutine RKUTTA deeps track of the step size 
and number of iterations across the integration interval, 
while MORERK evaluates the derivative being integrated and 
sums these values across the integration interval. The 
results of the integration for the displacement and velocity 
of each mass are the amounts of deviation from the steady- 
state values over that time interval. These are added to the 
steady— state values to obtain the absolute displacement and 
velocity of each element. The dynamic forces are then 
calculated based on the relative motion of the elements. 
These values are then stored for examination by the post- 
processor program. 

3.6.3 Post-processor 

The function of the post-processor is to provide access 
to all the data that has been generated by the above pro- 
grams. The user has the option of presenting this data in 
either tabular or graphical form. The program which evolved 
during the course of this investigation has proved particu- 
larly useful in evaluating the calculated results and is 
described in this section. 
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The program FORCE calculates the static load sharing 
among the planets and then the tooth load sharing among the 
gear teeth within the same mesh for a given position of the 
sun gear. Also, included in the analysis is the position the 
sun center assumes if it is allowed to move to compensate for 
unequal planet loading. By evaluating these forces and 
movements at a specified number of discrete positions within 
one sun gear's engagement cycle, a baseline is determined 
against which the dynamic forces and movement can be 
compared. This results in the calculation of the dynamic 
load factors as a function of sun gear position. The user 
can direct this output either to the terminal screen for a 
quick indication of trends, periodicity, and maximum and 
minimum forces; or to the printer for more accurate examina- 
tion of the results. In addition, the locus of the sun 
center static and dynamic movement may be plotted. 

The program DRAW Can be used to graphically examine the 
integration results. The user specifies the data file to be 
read and offers the option of graphing the sun/planet mesh 
stiffnesses and dynamic forces, the planet/ring mesh 
stiffnesses and dynamic forces, and the dynamic sun gear 
center displacement. Output can be directed to either the 
screen or four pen plotter. 
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CHAPTER IV 

RESULTS, DISCUSSION AND SUMMARY 

4 . 1 Results and Discussion 

4.1.1 Introduction 

The planetary gear train (PGT) analysis methodology 
developed for this thesis was used to perform a series of 
comparative parametric studies in order to validate the 
methodology and assess the PGT drive performance. Design 
parameters of the gears and system properties used in this 
study are given in Table 2. The analyses of this particular 
PGT considered tooth profiles, sun support stiffness, 
critical damping ratios, shaft stiffness, and transmitted 
power. Static and dynamic computer analyses were conducted 
under identical conditions. 

4.1.2 Static Analysis 

The equivalent gear train of the model shown in Figure 
25 was used in the static analysis to investigate the planet 
load sharing and displacement of the sun gear. Figure 28 
shows the phasing and magnitude of the stiffness functions 
used for the static analysis. Two conditions were examined; 
a floating or free, sun gear, and a fixed sun gear. The sun 
gear fixity was determined by its support stiffness. The 
floating sun gear was allowed to translate in the x and y 
directions by setting the two perpendicular sun support 
stiffnesses to 1.0 lb/in. Fixed sun gear conditions were 
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Design Parameters 

Diametral Pitch 
Pressure Angle 
Number of Teeth 
Sun 

Planet 

Ring 

Face Width 

Addendum 

Dedendum 

Theoretical Contact Ratio 
Sun/Planet 
Planet/Ring 


5 

22.5° 

25 

24 

73 

1 in 

0.20 in (1.0/P) 
0.27 in (1.35/P) 

1.56 

1.78 


System Properties 


J Dr iver 

J Sun 

M Su n 

J Planet 

J Ring 

^Load 

Table 2 - Design and 
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Figure 28 - Phasing and Magnitude 
of Stiffness Functions 
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achieved by assigning a stiffness two orders of magnitude 
larger than the gear mesh stiffness to the sun gear supports. 
The results of the static analysis were used as baseline data 
against which the dynamic results were compared. The tor- 
sional stiffness of the input shaft was the same in both 
cases . 


4. 1.2.1 Planet Load Sharing 

Figure 29 shows the loading for one sun/planet/ring 
through one sun gear engagement cycle for the fixed sun gear 
condition. Since the planets are in static equilibrium, the 
sun/planet and planet/ring mesh loads per planet are equal, 
The loads illustrate the phasing of the mesh stiffnesses 
about the sun gear. These static results were obtained by 
evaluating Equations 3.25 and 3.26 for 100 intervals during 
the engagement cycle. These results agree with Hidaka's 
approach [21] who treated the sun/planet and planet/ring 
stiffnesses as springs in series and then proportioned the 
sun loads according to the relative stiffness of the equiva- 
lent spring. However, Hidaka took the three sun/planet 
stiffnesses and three planet/ring stiffnesses to be equal. 
Therefore his load distribution does not reflect the VVMS at 
each mesh which causes load variations during the engagement 
cycle. 

Figure 30 shows the load sharing among the engaged teeth 
for one mesh cycle at one sun/planet/ring interface. As the 
engagement state changes from two to one tooth pair contact, 
the total load generally decreases. Changes in the 
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sun/planet contact state affect the planet load more notice- 
ably than changes in the planet/ring contact st4te. 

Figures 31a, b,c show that as the sun support stiffness 
is reduced, the planet load becomes a constant value inde- 
pendent of the sun's position, implying equal load sharing. 
Table 3 gives the ranges of both mesh loads and tooth loads 
as the sun gear support stiffness is reduced. Thus, for 
static conditions, equal load sharing can be achieved by 
allowing the sun gear to float. 

4. 1.2. 2 Displacement of the Floating Sun Gear Center 

As explained in Section 3. 4. 2.1, the contact conditions 
at each sun/planet mesh will differ due to the following 
reasons : 

a. The actual number of teeth in contact differ at 
each mesh. 

b. The location of contact on the engaged teeth differ 
at each mesh. 

In accordance to the WHS model, gear mesh stiffness values 
will also vary at each sun/planet and planet/ring engagement. 
Consequently, at static load conditions, the sun gear will 
move to the position such that: 

a. The mesh loads collectively produce a torque about 
the sun's center equal to the input torque. 

b. The sum of the mesh loads resolved in the x and y 
directions is zero. 

Since the gear mesh stiffness is a periodic function 
with a period of one pitch, the center of the sun gear is 


LOAD ( lbf ) LOAD (lbf) LOAD (lbf) 
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K SUN 1 




K SUN = 1 x 10 8 lbf /in 


Figure 31 - Effect of Sun Support Stiffness on 
Planet Load 
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K Sun 
(lbf /in) 

Max Mesh 
Load (lbf) 

Min Mesh 
Load (lbf) 

1 x ID 8 

792 

528 

1 x 10 6 

753 

398 

1 x 10 5 

703 

610 

1 x 10 4 

651 

647 


Table 3 - Effects of Sun Gear Support 
Stiffness on Mesh Loads 











113 


forced to move with a period of one pitch according to the 
variation of all the mesh stiffnesses. Since the mesh 
stiffnesses are implicitly a function of sun gear rotation, 
the movement of the sun center can be tracked through the 
sun's angular displacement. 

Figure 32 shows the x and y displacement of the sun's 
center versus the sun gear rotation through one mesh cycle. 
These curves depict the adjustment of the sun gear position 
to the changes in the six stiffness functions in Figure 28 in 
order to preserve the static equilibrium conditions. The 
displacement curves display two types of motion, dwell and 
transitional. The dwell motion denotes a stationary position 
of the sun gear center as the gear rotates, meaning the 
number of teeth in contact at all six meshes remain constant. 
The transitional motion is relatively large lateral displace- 
ment which occurs during a short interval of rotation of the 
sun gear. This is caused by a change in the number of teeth 
in contact at one of the six meshes. For the case of the 
three planet PGT studied, one mesh cycle had 12 transitions 
in the number of teeth in contact. Figure 33 is a polar plot 
of the movement of the sun center. Point 1 is representative 
of a dwell region as shown in Figure 32. Segment AB is repre- 
sentative of the transitional zone in Figure 32 . Since three 
identical planets are used, the polar plot also exhibits 
three-lobed symmetry which is caused by the plasing of the 
mesh stiffnesses among the planets. 


4.1.3 Dynamic Analysis 



DISPLACEMENT (in) X q DISPLACEMENT (in) 
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The gear train in Figure 25 was used for dynamic para- 
metric studies over an input speed range of 80 to 16,000 RPM. 
Based on the equivalent gear train concept, the equivalent 
mesh frequency varied from 155 to 30,000 Hz. The solution of 
the dynamic equations of motion (Equations 3.36 to 3.43) 
leads to dynamic loads which depend on the shaft stiffness, 
operational contact ratio, sun/planet and planet/ring gear 
mesh characteristics, transmitted loads, damping in the 
system, and operating speeds. Numerical integration of the 
differential equations was done on an HP-1000 mini-computer. 
Stability for the integration process was obtained by using a 
time step that was five per cent of the system's shortest 
natural period. The integration was done for a time length 
equal to 10 times the longest natural period to assure that 
the start-up transience had decayed to the point where the 
system was in steady-state operating mode. Appendix C 
contains a description of the algorithm used to determine 
these natural periods as well. 

4. 1.3.1 Low Speed Operation 

For low speed operation below the first resonance, it 
was found that the floating sun gear does position itself to 
provide for equal loading among the planets (Fig 34). For a 
static mesh load of 650 lb., (4500 lb-in at the sun gear) the 
maximum load increment factor was 1.04. The floating sun 
gear motion was able to compensate for the unequal mesh 
stiffnesses at each engagement and provide for relatively 
constant planet loading. This corroborated Hidaka's experi- 
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mental results of equalization of load distribution at very 
low driving speeds. At low speeds, the movement of the sun 
gear calculated by solving the dynamic equations of motion 
duplicated the static analysis results (Fig 35). The polar 
representation of the dynamic x and y translation of the sun 
gear center better illustrates the dwell region and transi- 
tional motion as discussed in Section 4.1. 2. 2 (Figure 36). 
Figure 37 shows the mesh loads for a typical planet at low 
speeds with a fixed sun gear. The extra vibratory phenomena 
exhibited by the planet/ring mesh is the result of transmis- 
sion error being compounded through the sun/planet and 
planet/ring engagements. 

4. 1.3.2 High Speed Operation 

Conditions of operation for the parametric tests of the 
dymanic model are given in Table 4. Results of the tests for 
both floating and fixed sun gear conditions over a range of 
input speeds are given in Figures 38 through 47. The results 
support Cunliffe's skepticism [14] about the ability of a 
floating sun gear to compensate for load imbalances and 
reduce dynamic loading. Equal load sharing among the planets 
was not preserved at speeds above pseudo-static conditions, 
and in general, the floating sun gear arrangement lead to 
higher dynamic loading than a fixed sun gear arrangement 
under identical operating conditions. 

Figures 38 and 39 show the sun gear center locus over a 
range of operating speeds. At a very low input speed, the 
sun center follows the regular geometrical motion as 
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Figure 35 - Movement of Sun Gear Center 
at Pseudo-Static Conditions 
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Figu re 

K 

sun 

(lbf /in) 

Gear 

Error 

(in) 

Shaft 
Stiffness 
( lbf-in/rad) 

Input 
Torqu e 
(lbf/in) 

40 

1 

0 

885000 

4500 

41 

1 x 10 8 

0 

885000 

4500 

42 

1 

2.5 x 10 -4 

885000 

4500 

43 

1 x 10 8 

2.5 x 10 -4 

885000 

4 500 

44 

1 

o 

185000 

4500 

45 

1 X 10 8 

0 

185000 

4500 

46 

1 

0 

885000 

5400 

47 

1 x 10 8 

0 

885000 

5400 


Table 4 - Operating Conditions 
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prescribed by the static equilibrium conditions (Fig. 38a). 
At higher speeds up to the first system resonance, the motion 
of the sun gear becomes a three-lobed orbit that gradually 
approaches a circular shape with increasing input speeds 
(Figs. 38b, 38c, 38d). At speeds above the first resonance, 
the translational motion of the sun gear decreases, although 
it still maintains the symmetrical orbit (Figs. 39a, 39b, 
39c, 39d) . Therefore the influence of the floating sun gear 
decreases at increasing mesh stiffness frequencies. 

Figures 40 and 41 compare the dynamic factors for the 
floating and fixed sun gear conditions at the sun/planet and 
planet/ring meshes. The higher loads shown in Figure 39 in 
the lower speeds can be directly attributed to the increasing 
sun gear radial displacement. in non-resonant regions 
between 6,000 and 11,000 RPM, the floating sun gear arrange- 
ment shows generally slightly higher dynamic loads, which are 
due to the sun gear displacement. Both conf iguations showed 
higher dynamic loading at the planet/ring mesh for a given 
input speed due to the compounded transmission error 
occurring through the sun/planet/ring meshes. Increased 
system damping decreased the dynamic loads in Figure 39. 

Both figures show similar resonance regions at high 
input speeds. This is the tooth mesh resonance which 
produces the highest dynamics in the system. Although the 
fixed sun gear shows a lower dynamic factor, it was found 
that a dynamic factor over 2.5 was indicative of tooth 
separation within the mesh, and therefore, was an unaccepta- 
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(Note: DF > 2.5 denotes unacceptable operating condition) 



Figure 40 - Dynamic Factors for Floating Sun Gear Configuration 
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(Note: DF > 2.5 denotes unacceptable operating condition) 



Figure 41 Dynamic Factors for Fixed Sun Gear Configuration 
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ble operating condition. Both fixed and floating sun gears 
had experienced dynamic factors over 2.5* indicating neither 
configuration sucessfully minimized dynamic loading at high 
frequency resonances. 

These findings are similar to Cunliffe's [14] who found 
high dynamic loads at low frequenacies for a floating sun 
gear and even higher ones at the high frequency resonances. 
Hidaka’s [23] experimental results also show two resonance 
regions with the highest dynamic loads occuring at the high 
frequency resonance. 

Lanchester, Love, and Allen [8], [10], [29], all pointed 

out the need for high precision gearing in order for proper 
operation to the PGT. Figures 42 and 43 show the effect of a 
sine error on the sun's gear teeth on the dynamic loads. The 
magnitude of the sine error was purposely set at a relatively 
large error (0.00025 in.) to illustrate a worse case 
condition. Independent of the sun gear's fixity, the tooth 
mesh resonance was particulary sensitive to the gear tooth 
qual ity . 

Figures 44 and 45 show the effect of having softer input 
and output shafts. The torsional shaft stiffnesses affect 
the two PGT configurations in opposite ways. For the 
floating sun gear, the peak loads were relatively unchanged 
at the low speed resonance, but were reduced at the high 
speed range. For the fixed sun gear, peak dynamic loads were 
reduced in the low speed range, but only slightly decreased 
at the high speeds. 
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(Note: DF > 2.5 denotes unacceptable operating condition) 



Figure 42 - Dynamic Factors for Floating Sun Gear Configuration with Sine Error 
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(Note: DF > 2.5 denotes unacceptable operating condition) 



Figure 43 - Dynamic Factors for Fixed Sun Gear Configuration with Sine Error 
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(Note: DF > 2.5 denotes unacceptable operating condition) 
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Figure 44 - Dynamic Factors for Floating Sun Gear Configuration with Soft Shafts 
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(Note: DF > 2.5 denotes unacceptable operating condition) 



Figure 45 - Dynamic Factors for Fixed Sun Gear Configuration with Soft Shafts 
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Increased static mesh loads caused a decrease in dynamic 
loads in the non-resonance region (Fig 46 and 47). in- 
creasing the input torque load from 4500 lb. -in. to 5400 lb- 
in, increased the operational contact ratio of the sun/planet 
mesh from 1.578 to 1.623; the planet/ring operational contact 
changed from 1.891 to 2.021, The planet/ring dynamic loading 
decreased generally for both systems reflecting the more even 
mesh stiffness and smoother load transition at the 
planet/ring mesh. 

4 . 2 Summary and Conclusions 

A new methodology has been developed for the static and 
dynamic load analysis of planetary gear trains (PGT) . Prior 
to this investigation, there were no established methods 
which used a non-linear tooth mesh stiffness in determining 
component loading, nor considered the effect of the phase 
relationships of the variable mesh stiffnesses on the dynamic 
behavior of the gears. With this newly developed methodolo- 
gy, the design and analysis of planetary gear trains is based 
on an engineering rather than an empirical approach. 

The analysis procedure is applicable to either involute 
or modified involute spur gearing. It uses non-conjugate 
gear action caused by deflection of gear teeth and by 
inherent gear manufacturing and assembly errors. Both fixed 
and floating sun gear PGT's can be evaluated. The methodolo- 
gy is capable of considering fluctuating output torque, 
elastic behavior in the entire system as well as in the 



PLANET/RING DF SUN/PLANET DF 




4 5 6 7 0 9 10 11 12 13 14 15 16 

INPUT SPEED (1000 RPM) 


Figure 46 — Dynamic Factors for Floating Sun Gear Configuration with Increased Mesh Loads 
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Figure 47 - Dynamic Factors for Fixed Sun Gear Configuration with Increased Mesh Loads 
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gears, and allows for backlash and possible loss of contact 
between engaged gear teeth. The above properties are improve- 
ments over models used by previous investigators. 

The entire methodology has been incorporated into a 
series of computer programs which comprise a computer-aided- 
design (CAD) package for the analysis and evaluation of 
PGT's. Graphical output permits the engineer to quickly and 
selectively examine all or just portions of the design data 
base which includes static and dynamic tooth mesh loading, 
variations in transmission ratio, and sun gear displacements. 
The results of the parametric computer studies yielded the 
following conclusions for a typical single stage three-planet 
planetary gear drive: 


a. Under static conditions, a floating sun gear will 
move to a position such that the mesh loads among 
the planets are equalized. The locus of the sun 
center's motion isa determined path with a 
periodicity equal to one mesh cycle. 

b. Under static conditions, a fixed sun gear dis- 
tributes the load among the planets according to 
the relative stiffnesses of the effective 
sun/planet/ring meshes. 

c. For pseudo-static conditions, i.e. very low speeds, 
the floating sun gear can maintain equal load 
distribution among the planets. 

d. At all higher operating speeds, variations and 
discontinuities in the VVMS, introduce dynamic 
effects which lead to increased tooth loads. The 
floating sun gear can no longer maintain equal load 
distribution among the planets. 

e. Allowing the sun gear to float introduces a 
resonance region where the sun/planet and 
planet/ring tooth loads are affected by the 
floating sun gear movement to the point of markedly 
increased dynamic loads. 
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f. In non-resonance regions, the floating sun gear 
configuration generally shows slightly higher 
dynamic loading than the fixed sun gear configura- 
tion, indicating that the floating sun gear motion 
adds to the dynamic loading in the PGT. 

g. At high operating speeds, a resonance region occurs 
that is indicative of tooth-mesh resonance and 
results in the highest dynamic loads. This 
resonance is particularly sensitive to gear tooth 
errors, and is not affected by the fixity of the 
sun gear. 

h. Altering system components such as the input and 
output shafts' torsional stiffness, changes the 
operating characteristics of the PGT. Also, the 
dynamic loading can be decreased by increasing the 
system damping and/or the operational contact 
ratio . 


Through the consideration of deformable components, 
variable operational contact ratio, and time dependent system 
parameters, the methodology developed during the course of 
this investigation represents a definite advancemertt of 
planetary gear train design technique and assesment. It 
reflects the latest state-of-the-art understanding of 
involute and non-involute spur gear performance, and has been 
adapted for use in a mini-computer based CAD environment. In 
addition, it establishes the groundwork for further studies 
on the effect of the dynamic loads on the PGT support 


structure. 
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APPENDIX A 

DEVELOPMENT OF THE GEAR VARIABLE-VARIABLE MESH STIFFNESS 

This appendix describes the methodology used for the 
development of the Variable-Variable Mesh Stiffness (VVMS) 
for the sun/planet and planet/ring gear engagements. The 
WMS realistically reflects the gear mesh conditions both as 
the number of teeth in contact vary and also as the position 
of contact on the engaged gear teeth vary. An iterative 
procedure was used to calculate the VVMS as a function of 
transmitted load, gear tooth profile errors, gear tooth 
deflections and gear hub torsional deformation, and position 
of contacting points. 

Before the VVMS can be determined, the contacting 
profiles are digitized into 100 coordinates. Straight line 
segments connecting the digitized points, which include 
profile errors and modifications, describe the gear tooth. 
Deviations from the theoretical involute profile may occur 
because of manufacturing quality or by design. Also the gear 
profile may change through extended use, often drastically 
through surface faults such as pitting or spalling. In terms 
of an involute profile chart, the involute variation can be 
expressed as: 


M = PV (RA) , 


(Al) 
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where M = Deviation from the line of action. 

RA = Roll angle measured from the base circle. 

PV = Profile variation as a function of RA. 

A true involute profile is defined by: 

M = PV(RA) =0. 

The digitized profile points are then used in the iteration 
process to establish contact points on the gear teeth and 
also to incorporate appropriate deformations to simulate non- 
involute action. 

A three step procedure is used to determine the WMS 
directly. First angular positions are determined for the 
point of initial contact and point of final disengagement 
along the theoretical line of action. The contact arc is 
divided into 49 arc segments, and the two digitized tooth 
profiles are placed at their respective initial contact 
positions. This gear pair (GP3) , along with the preceding 
two pairs (GP1,GP2) and the following two pairs (GP4,GP5), is 
tracked as it rotates through the contact zone. By tracking 
five gear pairs, it is possible to observe both the mesh 
behavior composed of all the teeth in contact at a particular 
time and each individual contacting gear tooth pair, for gear 
pairs with a contact ratio up to 3.0. 

Next, gear tooth deflections are calculated based on 
candidate contact points established by tracking the movement 
of GP3 through the mesh arc. Candidate contact points for an 
individual gear pair are determined by a search procedure 
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that examines the horizontal distance between 20 to 40 points 
within an estimated contact zone at every one of the 50 
angular positions. Contact occurs if two points are found to 
be within a prescribed distance of each other. If no profile 
points meet this criteria, then a no-contact condition is 
declared for that gear pair at the i*Lj2 angular position. 

The contact gear tooth pair deflection (k) ^ can be 
expressed as: 


«(k)i = fiiOOi + <S 2 (k)i + $ H (k) i (A2) 

where 6 iOOi = Deflection of the kill tooth of gear 1 at 

mesh arc position i. 

<$ 2 (k)i = Deflection of the kill tooth of gear 2 at 
mesh arc position i. 

6 H (k)i = Localized Hertz deformation at the point of 
contact. 


The gear tooth deflection 6 ] _(k) i and & 2 i are d efi" ed b Y? 


6j(k)i = <5 Mj (k) i + « Nj (k)i + Ssj^i + 6 Bj( k )i + 6 Rj< k >i 


j = l,2 


(A3) 


where 6 M = Gear tooth deflection due to bending. 

6 n = Gear tooth deflection due to normal force. 

< 5 S — Gear tooth deflection due to shear force. 

6 0 = Gear tooth deflection due to deformation of 
surrounding hub area. 

6 r = Gear tooth deflection due to gross torsion of 
the rim or hub. 

These deflections are considered as equivalent positive 
profile errors which cause premature engagement and delayed 
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engagement . 

In the third step, the ^(k^, 6 2 ( k >i and apportioned 
<S H (k)i deflections areadded to the respective digitized 
profiles in order to simulate the above gear behavior. The 
gear pair GP3 is again tracked through the contact arc but 
now under "loaded and deflected" conditions. The search 
procedure is repeated during this step. New candidate 
contact points and positions for five gear pairs are now 
determined under full load. As a result of the deflections, 
the contact arc, and therefore the contact ratio of the gear 
is increased. 

For any mesh arc position i, the calculated k^Jl gear 
tooth pair stiffness, KP(k) if mesh stiffness KG if and load 
sharing incorporates manufactured profile errors, profile 
modifications, and deflections by means of the iterated 
numerical solutions. 

The individual gear tooth pair stiffness can be 
expressed as : 

KP(k)i = Q(k) i /6(k) i . (A4 ) 

If the effective errors prevent contact, KPCk^ = 0. 

The sum of gear tooth pair stiffnesses for all pairs in 
contact at position i represents the variable-variable mesh 
stiffness KG, 


KG t * l KP (k ) i . 


(A5) 


The load carried by each of the pairs moving through the mesh 
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arc in the static mode can be determined as: 


Q(k) . 
1 


KPWi Q 

KGi t 


(A6) 


where Q t is the total normal static load carried by the gear 
at any mesh position i in the static mode, 

Q t « I Q (k) i . (A7) 

Determination of the deflected contact points allow the 
calculation of instantaneous pressure angles and transmission 
ratios due to non-conjugate gear action. From Figure A-l, 
the instantaneous parameters for the contact point A' defined 
by the coordinates OCP(k) and VCP(k) are: 


PPD ' • Distance to instantaneous pitch point (A8) 


RBC1 



cos A1 + B1 


a Al 

= arcsin pSpi — ■ 
RCPl 

(A9) 

a A2 

• “-*» f§F 

(A10) 

a Bl 

■ aECtan rbcT“ 

(All) 

a' 

■ Instantaneous pressure angle 

(A12) 


‘ a Al + a Bl 

n ■ Theoretical (involute) transmission ratio 

( A13 ) 



Figure A-l 


Instantaneous Contact Point 
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= RPC2 
RPC1 

n' = Instantaneous transmission ratio (A14) 

_ (C - PPD ' ) 

PPD ' 

A similar procedure is used for determining the 
analogous instantaneous parameters in the external/internal 
mesh engagements. Where errors interrupt contact, the values 
of the instantaneous parameters are set equal to the 
theoretical values. Values for the position dependent mesh 
stiffness, KG P ^ , tooth pair stiffness KG(k)j, and 
instantaneous transmission ratio, n 1 ^ , are written to data 
files and used in the subsequent dynamic calculations. 
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APPENDIX B 

EVALUATION OF OTHER TYPES OF EPICYCLIC GEARING 

As mentioned in Section 3.4.1, the concept of equivalent 
gear drives may be extended to the other two types of 
epicyclic arrangements, star and solar, so that the 
techniques developed in this investigation may be used to 
evaluate those drives. This appendix is included to explain 
how this may be accomplished. 

The star drive (Fig. B-l) has a fixed carrier, so no 
relative motion is introduced in the gear train. The pitch 
line velocities are equal to the velocities of engagement. 
Therefore, the absolute angular velocity of the input gear is 
equal to the actual given input angular velocity. Note that 
the star drive is a conventional gear train arrangement, 
meaning no equivalent input velocities must be calculated. 

The solar drive (Fig. B-2) has a fixed sun gear, input 
at the ring gear, and output at the carrier. From Table B-l, 
the speed ratio of this arrangement is: 


m = 


. W R 


0 ), 


LN o 

« JL + 1 . 


To eliminate the relative angular velocities caused by 
carrier rotation, the carrier is "stopped" by adding a 
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Figure B-l - Star Arrangement 
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Figure B-2 - Solar Arrangement 


Arrangement 

Fixed 

Member 

Input 

Member 

Output 

Member 

Over-all 

Ratio 

Planetary 

Ring 

Sun 

Carrier 

n r 

— + 1 
N S 

Star 

Carrier 

Sun 

Ring 

n r 

N s 

Solar 

Sun 

Ring 

Carrier 

N s 


N g = Number of sun teeth N R = Number of ring teeth 


Table B-l - Epicyclic Gear Data 
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velocity of - c to all the components. The absolute angular 
velocity of the input ring ge^r is now: 

w r » w r - u c (Bl) 



Us 

n r 


0) 


R* 


The absolute angular velocity of the output gear is: 


03 

s 


Np , 

— 03 

N s R 


(B2) 


= “R 

The solar drive arrangement can now be treated as a 
conventional gear drive with the equivalent sun gear and ring 
gear velocity equal to R and -w r n s /N r , respectively. 
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APPENDIX C 

CALCULATION OF TOTAL INTEGRATION TIME AND STEP SIZE 


To minimize computer time and yet guarantee stable and 
accurate numerical solutions, it was decided to base the 
total integration time and step size on the system's longest 
and shortest natural periods, respectively. To isolate just 
the natural frequencies of the gear train, the effect of 
driver and load ineritas were not considered, although the 
torsional stiffness values of the input and output shaft were 
used. The time dependent mesh stiffnesses were assumed to be 
constant; their value being the average between one and two 
pairs of teeth in contact. A generalized Jacobi Method was 
then used to solve the eigenvalue problem: 

K<|> = AM<j> 

where K = Stiffness matrix based on differential 

equations of motion (see Section 3.5) 

<}> = matrix of eigenvectors 

A = diagonal matrix of eigenvalues 

M = inertia matrix 


'sun 


M 


sun 


- 0 - 


M 


sun 




-o- 


J P2 


J P 3 


ring 



o o 
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C <830613. 112S> 

FTN4.L 

PROGRAM PGT 
C 

CxxaaxTHIS PROGRAM CALCULATES THE NATURAL FREQUENCIES UP TO A 18 0.0. F. 
CxxxxkMODEL. DEGRESS OF FREEDOM CAN BE ELIMINATED BY SELECTING VERY HIGH 
CxxxxxSTIFFNESS. 

C 

IMPLICIT DOUBLE PRECISION CA-H.K.0-Y3 
COMMON /AAA/ AC18.183 ,BC18,183 ,XC18,183 ,EIGVC183 ,DC183 
DIMENSION KSPC33 ,KPRC33 , C8C33 ,SBC33 ,CAC33 ,SAC33 
DIMENSION CGC33 , SGC33 ,ZETA C2 ,183 ,ETAC2,183 
DIMENSION ZXC3, 163 ,ZYC3,163 , IGC1923 , ITITLEC203 
C 


C 


C 


C 


C 


SIZE, MASS, AND STIFFNESS DATA FOR PLANETARY GEAR SYSTEM 
xxaxa GEAR RADII CPITCH CIRCLES xxxxa 
DATA RPCS/2. 50000 ODO / , RPCP/2. 4000000D0/ 

xaaaa INERTIA ELEMENTS aaxax 

DATA SM/. 01500000/ , SJ/.04D0/, PM/.014D0/, PJ/.033D0/ 

DATA CM/9. 0005/ , CJ/9.000S/, RM/l.D-1/, RJ/2.00D0/ 

xxxxa SUPPORT STIFFNESS ELEMENTS xxxxx 
DATA KS/l.DO/, KTS/8.85D5/, KP/9.D5/, KTP/O.DO/ 

DATA KC/9.0D5/, KTC/9. 0000D5/ , KR/9.D5/, KTR/8.85D5/ 

xxxxx GEAR MESH STIFFNESS xxxaa 

DATA KSP/3X1915435.D0/, KPR/3X2586154 . DO/ 

DATA N/18/ , PHI/22. 5D0/, PI/3. 14159265358979D0/ 


PHI - PI X PHI/180. 

30 WRITEC1 ,313 RPCS,RPCP 

31 FORMATC/// 'RPCS.RPCP' ,T25,2F13. 73 
WRITE Cl ,323 

32 FORMAT ('CHANGE? CY/HJ _'3 

READC1 ,213 IQ 
IFCIQ.EQ.1HN3 GO TO 40 
WRITEC1 ,333 

33 FORMATC 'ENTER NEW VALUES'3 
READC1 ,X3 RPCS,RPCP 

40 WRITEC1 ,33 

WRITE Cl, 43 SM , S J , PM , P J , CM , CJ , RM , R J 

WRITECl',323 

READC1 ,213 IQ 

IF CIQ.NE.1HY3 GO TO 50 

WRITEC1 ,333 

READC1,X3 SM,SJ,PM,PJ,CM,CJ,RM,RJ 
50 WRITEC1.6) 

WRITE Cl, 43 KS ,KTS,KP ,KTP ,KC ,<TC ,KR ,KTR 

WRITEC1 ,323 

READC1 ,213 IQ 

IF (IQ.NE.1HY3 GO TO 60 

WRITEC1 ,333 

READC1 ,x3 KS , KTS , KP , KTP , KC , KTC , KR , KTR 
60 WRITEC1 ,73 KSP.KPR 
WRITE Cl, 323 
READC1 ,213 IQ 
IF CIQ.NE.1HY3 GO TO 70 
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MRITEC1 ,33) 

READC1 ,*) KSP , KPR 
C 

70 RC - RPCS ♦ RPCP 

RPCR » RPCS ♦ 2*RPCP 
RS - RPCS * DCOSCPHI) 

RP - RPCP * DCOSCPHI) 

RR - RPCR * DCOSCPHI) 

I OUT - 1 
C 

C STIFFNESS MATRIX 
C 

DO 75 I-1,N 
DO 75 J«1,N 
A C I ,J)«0.0 
75 CONTINUE 

A Cl , 1) - KTS 

AC2,2) - KS 

A C3,3) - KS 

AC13, 13) - KTC +3.*KP*RC**2 

AC14 , 14) - 3. *KP ♦ KC 
AC15 , 15) - 3.*KP ♦ KC 
AC16,16) - KTR 
AC17 , 17) - KR 
AC18, 18) - KR 
C 

DO 100 J-1,3 

BETA • 2./3.*PI*CJ-l) 

ALPHA - BETA ♦ PI/2. - PHI 
GAMMA - BETA ♦ PI/2. ♦ PHI 
CBCJ) - DCOSCBETA) 

SBCJ) - DSINdBETA) 

CACJ) - DCOSCALPHA) 

SACJ) * DSINCALPHA) 

CGCJ) - DCOSCGAMMA) 

SGCJ) - DSINCGAMMA) 

C 

I - 1 ♦ 3*J 

AC1,1) - A Cl , 1) ♦ KSP C J)*RS**2 

AC1,2) - A Cl , 2) ♦ KSPCJ)*RS*CACJ) 

AC1,3) • A C 1 , 3) ♦ KSP C J)*RS*SA C J) 

AC2,2) - A C2 , 2) ♦ KSPCJ)*CAC J)**2 

AC2,3) - AC2 , 3) «■ KSPCJ)*CACJ)*SAC J) 

AC3,3) - AC3,3) ♦ KSPCJ)*SACJ)**2 

AC1 , 1 ) • -KSPCJ)*RS*RP 

AC1 , 1*1) - -KSPCJ)*RS*CACJ) 

AC1 , 1 +2) - -KSPCJ)*RS*SACJ) 

A C2 , I ) - -KSP C J)*RP*CA C J) 

AC2 , I ♦!) * -KSPCJ)*CACJ)«2 

AC2,I*2) - -KSPC J)*CAC J)*SAC J) 

A C3, 1 ) - -KSPC J)*RP*SACJ) 

AC3 , I ♦ 1) • -KSPC J)*CAC J)*SAC J) 

AC3,I*2) - -KSPCJ)*SACJ)**2 

AC I , I ) - KTP ♦ CKSPCJ) ♦ KPRCJ))*RP**2 

AC I , I ♦!) - CKSPC J)*CAC J) - KPR C J)*CGC J) >*RF 
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A(I,I*2} - CKSP ( J} *SA ( J) - KPR ( J} *SG C J } ) *RP 

KP ♦ KSP(J}*CA(J}**2 ♦ KPR ( J) *CGC J) **2 
A ( I + 1 , I +2) * KSP(J}*CA(J}*SA(J} ♦ KPR ( J} *CG ( J} *SG ( J) 
A C I +2 , 1 +2) ■ KP ♦ KSP(J}*SA ( J} x*2 + KPRC J}*SG( J )«2 
A(13,14} • A (13 , 14) - KP*RC*SB(J} 

A(13 , 15) - A(13,15} ♦ KP*RC*CB C J) 

A ( I ♦ 1 , 13) - KP*RC*SB(J} 

A ( I ♦ 1 ,14) - -KP 
A ( I *2 , 135 - -KP*RC*CB ( J} 

A ( I *2 , 15) - -KP 

A(16,16} - A C16, 16> ♦ KPR(J}*RR**2 

A (16 , 17} • A(16,17} - KPR ( J)*RR*CG( J} 

A (16 , 18} - A (16 , 18} - KPR(J)*RR*SG(J} 

A(17 ,17} - A (17 , 17} ♦ KPR(J}*CGCJ}**2 

A (17 , 18} - A (17 , 18} ♦ KPR(J}*CG(J}*SG(J} 

A (18 , 18} - A(18 , 18} ♦ KPR ( J}*SG( J}**2 

A ( I , 16} - -KPR(J}*RP*RR 

A ( I ,17} - KPR ( J}*RP*CG( J} 

A(I, 18} - KPR(J}*RP*SGCJ} 

A ( I **-1 ,16} - KPR(J}*RR*CG(J} 

A( I +1 , 17} - -KPR(J}*CG(J}**2 
A(I*1, 18} • -KPR(J}*CG(J}*SG(J} 

ACI+2,16) - KPR ( J}*RRx$G( J} 

A ( I *2 , 17} - -KPR(J}*CG(J}*SG(J} 

A( I +2 , 18} - -KPR(J}*SG(J}**2 
C 

C INERTIA ELEMENTS 

C 

IF ( J. GE. 2} B ( J , J} - SM 

B(I,I} - PJ 
B ( I ♦ 1 » I ♦!} ■ PM 
BCI+2,I*2}- PM 

IF CJ.GE.2} B(J*12, J*12} - CM 
IF ( J. GE. 2} B(J*15,J*15} - RM 

100 CONTINUE 

8(1,1} - SJ 

B (13, 13} - CJ 
B (16, 16} - RJ 
C 

C FILL SYMMETRIC MATRIX 
C 

DO 200 I«i,N 
DO 200 J-1,N 

A(J,I} - A ( I , J} 

200 CONTINUE 

IF ( I OUT. NE. 6} I OUT - 1 
401 CALL JACOB (N,l. 00-12,20,0, IOUT} 

C PRINT RESULTS 
C 

601 WR ITE (1 , 2} 

READ(1,*} IOUT 

IF (IOUT. NE. 1 .AND. I0UT.NE.6} GO TO 601 
C 

WRITE( IOUT, 31} RPCS , RPCP 
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WR I TEC I OUT, 35 

WRITE Cl OUT, 4) SM,S J , PM, PJ ,CM , C J , RM , R J 
WRITE Cl OUT, 65 

WR I TE C I OUT, 45 KS , KTS , KP , KTP , KC , KTC , KR , KTR 
WRITECIOUT.75 KSP.KPR 
C 

00 650 J-1,N 

EIGVCJ5 » DSQRTCEIGVCJ55/C2*PI5 

PERIOD • 1./EIGVCJ5 

WRITE Cl OUT, 6495 J.EIGVCJ5 .PERIOD 

649 FORMAT C 15 ,5X , 'FREQUENCY' ,F12. 5 , ' Hz ' ,5X , 'PERIOD' ,F11 . 7 ' sec '5 

650 CONTINUE 
WRITE Cl ,6605 

660 FORMATC'PRINT MODE SHAPES? CY/NI '5 
READC1 ,215 IPICK 
IF CIPICK.EQ. 1HN5 GO TO 801 
C 

WRITE Cl OUT, 115 CJ, J-1.N5 
WRITE C IOUT ,165 CEIGVCJ5 , J-1.N5 
WRITECIOUT.125 
C 

C CALCULATING LOCAL COORDINATE DISPLACEMENTS FOR PLANETS *2 4 *3 
C CFOR PLANET /I , LOCAL 4 GLOBAL COORDINATES ARE IDENTICAL 5 
C 


700 


800 

C 


DO 800 1*1 ,H 
DO 700 J-2,3 
JJ - 3*J *2 
2 ETACJ-1,15 
ETACJ-1 ,15 
CONTINUE 

WRITECIOUT.155 I 
IF CI.EQ.8 .OR. 
IF CI.EQ.9 .OR. 
CONTINUE 


* XCJJ,I5*CBCJ5 ♦ XCJJ*1 , I5*SBCJ5 
- -XCJJ,I5*SBCJ5 ♦ XCJJ*1,I5*CBCJ5 

, CXCI.J5, J-1.N5 

I.EQ.115 WR ITE C IOUT ,165 C2ETACI/5, J5 ,J»1,N5 
I.EQ.125 WRITEC IOUT , 165 CETACI/6, J5 ,J-1,N5 


801 WRITEC1 ,8025 

802 FORMATC/// 'AGAIN? [Y/Nl '5 
READC1 ,215 IPICX 

IF CIPICK.NE. 1HN5 GO TO 30 


1 

2 

3 

4 

6 

7 

11 

12 

15 

16 
21 
22 


CONTINUE 

FORMATC// 'MODE NO.*, 15, / C/3C2F12.4.6X555 

FORMATC/ 'LU FOR OUTPUT DEVICE? tl-SCR 6-PRT5 _'//5 

FORMATC/'INERTIA ELEMENTSi M-CMASS5 4 J-CMOMENT5'5 

FORMAT C' SUN *,T25,2F13. 5/ 'PLANET' ,T25,2F 13. 5/ 'CARRIER' ,T25,2F13.5/ 

* 'RING' ,T25,2F13.55 

FORMATC/ 'SUPPORT STIFFNESSESi X- CTRANSLATI ON5 4 Kt - CTORQUE5 '5 
FORMATC/'MESH STIFFNESSES'/'KSP CSUN/PLANET5 ' ,T25 .3F13.3/ 

* 'KPR CPLANET/RING5 ' ,T25 ,3F13. 35 

FORMATC//// ‘NATURAL FREQUENCIES CHZ5 > 18 DOF SYSTEM*// 18F7 15 

FORMATC// ‘EIGENVECTORS OF SYSTEM *5 

FORMATC/ 12 , 18F7. 45 

FORMAT C2X , 18F7. 15 

FORMAT CA15 

FORMATC/ *TO CALCULATE MODAL DISPLACEMENT OF ANY EIGENVECTOR,* / 
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4 * ENTER ITS NUMBER (1-18), ENTRY OF 'O' TERMINATES PROGRAM _*) 

23 FORMATC/ ’FOR GRAPHICS OUTPUT ON SCREEN, ENTER ' 1 ' * / ‘FOR OUTPUT 
*ON 4-PEN PLOTTER, *»***F I RST****LO AD 8.5 X 11 PAPER VERTICALLY* / 

4 ‘AGAINST LEFT 4 BOTTOM STOPS, THEN ENTER: * / *'2,0' FOR FULL PAGE 
4 DRAWING* / *'2,1' FOR UPPER HALF PAGE DRAWING, OR* / 

4 *'2,2' FOR LOWER HALF PAGE DRAWING _*) 

26 FORMATC/ ‘ENTER TITLE (MAX. 40 CHARACTERS-TO HERE)*) 

27 FORMAT C20A2) 

999 END 


BLOCK DATA AAA 

IMPLICIT DOUBLE PRECISION CA-H,0-Z) 

COMMON /AAA/ A (18 , 18) , B C18 , 18) , X (18 , 18) , E I GV (18) , D C18) 

DATA A/324XO . DO/ , B/324*0.D0/, X/324*0.D0/, E I GV/ 18*0 . DO/ 
END 
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c 

c 

SUBROUTINE JACOB CN , RTOL ,NSMX , IFPR , I OUT) 

IMPLICIT DOUBLE PRECISION CA-H.O-Z5 

COMMON /AAA/ A <18, 18) , BC18 , 185 , X (18 , 183 , E I GVC18) , D (18) 
DIMENSION ITIMEC55 , JTIMEC55 .NTIMEC55 
IP CIOUT.EQ.05 I OUT « 1 

C 


C *******************xx****xx*M****x*mm*x*****Mm********** m ****M**mm* 

C * 


c 

X 




c 

X 

EIGENVALUE 

SUBROUTINE CUSING GENERALIZED JACOBI ITERATI0N5 

X 

c 

X 




c 

X 

INPUT VARIABLES. 

X 

c 

X 

A (18,18) 

- STIFNESS MAT'X CMUST BE POSITIVE DEFINITE5 

X 

c 

X 

B (18 , 18) 

* MASS MAT'X CMUST BE POSITIVE DEFINITE5 

X 

c 

X 

N 

- ORDER OF MATRICES CMUST BE <- 185 

X 

c 

X 

RTOL 

- CONVERGENCE TOLERENCE CTYP. 1.0D-125 

X 

c 

X 

NSMX 

- LIMITING NUMBER OF SWEEPS CTYP. 155 

X 

c 

X 

I FPR 

* FLAG FOR PRINTING INTERMEDIATE VALUES 

X 

c 

X 


C IF .EQ. 0, WILL NOT PRINT5 

X 

c 

X 




c 

X 

OUTPUT VARIABLES. 

X 

X 

c 

X 

A CN , N) 

“ DIAGONALIZED STIFFNESS MATRIX 

X 

c 

X 

BCN,ND 

* DIAGONALIZED MASS MATRIX 

X 

c 

X 

XCN,N) 

* EIGENVECTORS STORED COLUMNWISE 

X 

c 

X 

EIGVCN) 

- EIGENVALUES 

X 

c 

X 




c 

X 

DC18) 

* WORKING VECTOR 

X 

c 

X 



X 


C ******************************** i *Ji ( ***jK J ( J ( J (**j HHH ( JEJ(M j |( j gJ|(J , i , > , MJ(J|)|tJtJ|JtJ|(J|fJ(j|( 

c 


C INITIALIZE EIGENVALUE 4 EIGENVECTOR MATRICES 
C 

DO 10 I«1,N 

IF CACI , 15 .GT. 0. .AND. BCI , 1 5 . GT. 0 . 5 GO TO 4 
WR ITE C I OUT ,2020) I ,ACI , 15 ,BCI ,15 
STOP 1 

4 DCI5 - ACI , I5/BCI ,15 

EIGVCI5 - DC 1 5 
10 CONTINUE 

DO 30 1*1 ,N 
DO 20 J*1 , N 
20 XCI.J5 - 0. 

30 XCI.I5 - 1. 

IF CN. EQ. 15 RETURN 

INITIALIZE SWEEP COUNTER 4 BEGIN ITERATION 
I Q » 0 

C C INTERMEDIATE WRITEC1, 29975 

C VALUE DUMP5 READC1,*5 IQ 

CALL EXECC11, IT1ME5 
NSWEEP • 0 
NR - N-l 

40 NSWEEP ■ NSWEEP ♦ 1 
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IF CIFPR.EQ.15 WRITE Cl OUT ,2000) NSWEEP 
C 

C CHECK WHETHER PRESENT OFF-DIAGONAL ELEMENT REQUIRES ZEROING. 

C 

EPS « C.01**NSWEEP5**2 
DO 210 J-l.NR 
JJ ■ J*1 
DO 210 K-JJ,N 

IF (IQ. EQ. 10 WRITECIOUT ,2998) J,K 
ATOL - CACJ,K5**25/CACJ,J5*ACK,K55 
BTOL - CB C J , K5**25 /CBCJ,J5*BCK,K55 
IF CCATOL.LT.EPS5 . AND. CBTOL.LT. EPS55 GO TO 210 
C 

C IF ZEROING REQ'D, WE CALCULATE ROTATION MATX. ELEMENTS *CA* 4 "CG*. 
C 

AKK • A CK , K5*BC J ,K5 - B CK ,K5*A C J , K5 
AJJ ■ ACJ,J5*BCJ,K5 - BCJ, J5*A(J,K5 
AB - ACJ,J5*BCK,K5 - ' ACK,K5*BCJ , J5 
CHK - C A.B**2 * 4.*AKK*AJJ5/4. 

IF CCHK5 50,60,60 
50 WRITECIOUT, 20205 K.CHK 

STOP 2 

60 SQCH • DSQRTCCHK5 

D1 - AB/2. * SQCH 

D2 - AB/2. - SQCH 

DEN - D1 

IF CDABSCD25 .GT. DABSCD15 5 DEN - D2 
IF CDEN5 80,70,80 
70 CA - 0. 

CG - -ACJ,K5/ACK,K5 
GO TO 90 

80 CA - AKK/DEN 

CG - -AJJ/DEN 

IF C I Q. EQ. 10 WRITE Cl OUT, 29995 K,CA,CG 

PERFORM GENERALIZED ROTATION TO ZERO PRESENT OFF-DIAGONAL ELEMENT. 

90 IF CN-25 100,190,100 

100 JP1 ■ J*1 

JM1 - J-l 
KP1 - K*1 
KM1 - K-l 

IF CJM1-15 130,110,110 
110 DO 120 I-1,JM1 

AJ *■ ' A C I , J5 
BJ « BCI , J5 
AK - ACI ,K5 
BK • BCI ,K5 
ACI,J5 • AJ ♦ CG*AK 

BCI , J5 * BJ ♦ CG*BK 

ACI ,K5 • AK ♦ CA*AJ 

BCI ,K5 * BK ♦ CA*BJ 

IF CIQ.EQ.15 WRITECIOUT, 29995 I , CAC I , 1 1 5 , 1 1 »1 ,N5 

120 CONTINUE 

130 IF CKP1-N5 140 140,160 
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140 DO 150 I*KP1-,N 


AJ - 

A 

CJ 

► ID 



B J ■ 

B 

CJ ; 




AK - 

A 

CK, 

► i> 



BK - 

B 

<K, 

► ID 



ACJ, 

I) 

m 

AJ 

♦ 

CG*AK 

BCJ, 

ID 

u 

BJ 

♦ 

CG*BK 

ACK, 

I) 

■ 

AK 

♦ 

CA*A J 

BCK, 

ID 

m 

BK 

♦ 

CA*B J 


IF CIQ.EQ.l) WRITE Cl OUT, 2999) I , CACI , 1 1) , I I-l.N) 


150 

CONTINUE 


160 

IF CJP1-KM1) 

170,170,190 

170 

DO 180 I-JP1. 

,KM1 


AJ ■ ACJ,I) 

BJ - B ( J , I ) 

AK - A C I ,K) 

BK - BCI.IO 
A ( J , I ) - AJ ♦ CG*AK 
BCJ.I) - BJ ♦ CG*8K 
ACI ,K) - AK ♦ CA*AJ 
B C I ,K) - BK ♦ CA*BJ 

IF CIQ.EQ.l) WRITECIOUT ,2999) I , CACI , 1 1 ) , 1 1 -1 ,N) 
180 CONTINUE 

190 AK - ACK.K) 

BK - B(K,K) 

ACK.K) - AK ♦ 2. *CA*A C J , K) ♦ ACJ,J)*CA**2 
BCK,K) - BK * 2. xCA*B( J ,K) ♦ BCJ,J)*CA**2 
ACJ, J) « ACJ, J) ♦ 2.*CG*ACJ,K) ♦ AK*CG**2 
B ( J , J) - BCJ, J) ♦ 2. *CG*BC J , K) ♦ BK»CG**2 
ACJ.K) - 0. 

B C J , K) - 0. 

UPDATE EIGENVECTOR MATRIX AFTER EACH ROTATION. 

DO 200 I-l.N 
XJ - XCI,J) 

XK » X C I , K) 

XCI.J) - XJ ♦ CG*XK 
XCI ,K) - XK ♦ CAxXJ 

IF CIQ.EQ.l) WRITE Cl OUT, 2999) I , CXCI , 1 1) , 1 1 »1 ,N) 
200 CONTINUE 

210 CONTINUE 
C 

C UPDATE EIGENVALUES AFTER EACH SWEEP. 

C 

DO 220 I-l.N 

IF CACI , D.GT. 0. .AND. B C I , I ) . GT. 0 . ) GO TO 220 
WRITECIOUT, 2020) I , AC I , I ) , B C I , I ) 

C STOP 3 

220 EIGVCI) - ACI , D/BCI , I) 

IF CIFPR.EQ. 0) GO TO 230 
WRITECIOUT, 2030) 

WRITECIOUT, 2010) CEIGVCI), 1*1, N) 

C 

C CHECK FOR CONVERGENCE. 
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230 DO 240 I • 1 , N 

TOL * RTOL*DC I ) 

DIF ■ DABSCEIGVCI) - DCI)) 

IF CDIF.GT.TOL) GO TO 280 
240 CONTINUE 
C 

C CHECK ALL OFF-DIAGONAL ELEMENTS TO DETERMINE IF ANOTHER SWEEP REQ'D. 

C 

EPS • RTOL**2 
DO 250 J«i,NR 
JJ ■ J*1 
DO 250 K-JJ.N 

EPSA « CACJ,K)**2)/CACJ, J)*ACK,K)) 

EPSB - (BC J ,K)**2)/ CBCJ , J)*BCK ,K) ) 

IF CCEPSA.LT.EPS). AND. CEPS8.LT.EPS)) GO TO 250 
GO TO 280 
250 CONTINUE 
C 

C FILL BOTTOM TRIANGLE OF A 4 B MATRICES * NORMALIZE EIGENVECTORS. 

C 

255 DO 270 I-1,N 
XX • 0. 

DO 260 J-1,N 

XX - XX ♦ XCJ, I)**2 
ACJ , I ) * A C I , J) 

BCJ.I) ■ BCI.J) 

260 CONTINUE 

DO 270 J«1,N 

XCJ, I) - XCJ,I)/DSQRTCXX) 

270 CONTINUE • 

CALL EXECC11 , JTIME) 

DO 285 1-1,5 

285 NTIMECI) - JTIMECI) - ITIMECI) 

WRITE Cl OUT, 2040) ITIME, JTIME .NTIME.NSWEEP 
RETURN 

UPDATE ‘D‘ MATRIX, START NEW SWEEP, IF ALLOWED. 

280 DO 290 I -1 ,N 
290 DCI) - EIGVCI) 

IF CNSWEEP.LT. NSMX) GO TO 40 
GO TO 255 

2000 FORMAT C/ ‘SWEEP NUMBER -*,I4) 

2010 FORMAT C4G26 . 12) 

2020 FORMATC/ ‘**»ERROR***MATRICES NOT POSITIVE *, 

t ‘DEFINITE ...VALUE OF I -* 15, ‘ ACI.I) * BCI.I) -*,2F12.4) 

2030 FORMATC/ • 'JACOB' t CURRENT EIGENVALUES...’ /) 

2040 FORMATC/ ‘STARTING TIME •*, 515 / ‘FINISH TIME 515 / 

t ‘COMPUTING TIME •*, 515, ‘ NO. OF SWEEPS 15) 

2997 FORMATC/ ‘IF CALC. DISP. DESIRED, ENTER 1 ELSE 0‘) 

2998 FORMATC/ ‘TOP OF LOOPi J,K 518) 

2999 FORMATC ‘TEST’, I5.C6F12.3)) 


END 
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FORCE 
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C <830610. 152l> 

FTN4 , L 

PROGRAM EXPRO 
C 

C THIS PROGRAM GENERATES GEAR TOOTH PROFILE COORDINATES 

C 

C0MM0H/C1/X1 Cl 00) , X2C100) , VI Cl 00 ) ,Y2C100) ,THETA1 Cl 0 0) ,THETA2C100) , 
1 W1C100) ,W2C100) ,21 Cl 0 0) ,Z2C100) ,KR1C100) ,RR2C100) 

COMMON/ C2/E1 ,G1,PR1,YP1,RR01,RI1,FW1,XMIN1, 

1 E2 , G2 , PR2 , YP2 , RR02 , R 1 2 , FW2 , XMI N2 

COMMON/C3/P I ,PHI , TGI , TG2 ,TP , PD1 , PD2 , RPC1 , RPC2 , RAC1 , RAC2 , TI N , RBC1 , 

1 RBC2 , C , SP , EP 

C 

DIMENSION LENGTHC2) 

DIMENSION TITLE CIO) 

DIMENSION IBUFC40) , IDCB1 C144) , INAMC3) , ISI2EC2) 

DIMENSION IDATAC2) 

C 

REAL KL , LEI ,KEI 
C 

C*****NO LIBRARY ARCCOS OR ARCSON FUNCTIONS REQUIRES FOLLOWING FUNCTIONS 
C 

ARSINCX)-ATANCX/SQRTC1.-X**2)) 

ARCOS CX) «P I /2 . - ATAN CX/SQRT Cl . -X**2) ) 

C 

C 

DATA LENGTH/2HI N ,2HMM/ 

C 

FOLLOWING DATA STATEMENTS ARE FOR INPUT 

DATA DP/5. / , DELTP/. 01/, PH ID/ 22. 5/ 

DATA MODCOD/O/ 

DATA ADI , AD2 ,WD1 ,WD2,GRRF1 ,GRRF2/2*. 200 ,2*. 470000 ,2*. 020000/ 

DATA DP , DELTP , PH ID/8.4666667 ,.01,22.5/ 

DATA MODCOD/O/ 

DATA ADI , AD2 ,WD1 ,WD2/2m. 11811 , . 269 , . 265748/ 

DATA GRRF1 , GRRF2/2*. 05/ , RPMIN/1000 . / 

WR ITE Cl , 2) 

2 FORMAT C # INPUT LU FOR OUTPUT DEVICE , PERI , CYC1 , PAP1 ' ) 

READC1 ,*) LU , PERI , CYD1 , PAP1 
C 

T0DEGR-180./PI 

6 PHI * PH I D*P 1/180 . 

T0UT«TIN*TG2/TG1 
RPM0UT-RPMINKTG1/TG2 
G1*0 .5*E1/ C1.+PR1) 

G2*0 . 5*E2/ Cl . *PR2) 

PD1-TG1/DP 

PD2-TG2/DP 

RPC1-0.5*PD1 

RPC2«0.5*PD2 

7 IFCRU.EQ.0.0) R 1 1- C16. *TI N/ CP I*TAUMAX) )** Cl . /3. )*0 . 5 
IFCRI2.EQ.0.0) R 1 2* C16. *TOUT /CPI *TAUMAX) ) 1 . /3. ) *0 . 5 
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IFCJG1.EQ. 0.) JG1-.5*GAMA1*P I *FW1*RPC 1**4/386. 

IFCJG2.EQ. 0.) JG2».5*GAMA2*PI*FW2*RPC2**4/386. 

C-RPC1+RPC2 

CP-PI/DP 

BP-CP*COSCPHI) 

RF1-. 7*CGRRF1*(WD1-AD1-GRRF1)**2/C.5*PD1«'WD1-AD1-GRRF1)) 

RF2 m . 7*CGRRF2+ (WD2-AD2-GRRF2)**2/ C. 5*PD2*WD2-AD2-GRRF2) ) 

RAC1«RPC1*AD1 

RAC2-RPC2*AD2 

RRC1-RAC1-WD1 

RRC2-RAC2-WD2 

RI1 -RRC1 

RI2 -RRC2 

RBCl«RPCl*COSCPHi) 

RBC2-RPC2*C0S CPH 1 3 
C 

Ll-100 

L2-L1 

P-TIN/RBC1 

C 

C NEXT SEGMENT OF CODE IS FROM MOO 

C 

C TG NUMBER OF TEETH 

C OP DIAMETRAL PITCH 

C PHI PRESSURE ANGLE 

C AD ADDENDUM 

C WD WHOLE DEPTH CAPPROXIMATE) 

C GRRF GENERATING RACK EDGE RADIUS 

C 1 IDENTIFIES GEAR 1 

C 2 IDENTIFIES GEAR 2 

C RF FILLET RADIUS 

C 

C 

C*****READ PROFILE MODIFICATIONS CIF ANY) 


C*****CHECK FOR INTERFERENCE 
C 

199 RCHK1 - SORT CRBC1**2 ♦ CC*SINCPHI))**2) 

RCHK2 - SORT CRBC2**2 ♦ CC*SINCPHI ) )**2) 

IF CRAC1 . GT . RCHK1. OR. RAC2. GT. RCHK2)_ INF-2 
IF CINF.EQ.2) GO TO 4563 
X-RF1/CRRC1+RF1) 

ALPHA1-ARSINCX) 

X-RF2/CRRC2+RF2) 

ALPHA2-ARSINCX) 

RTF11* CRRC1+RF1)*C0S(ALPHA1) 

RTF22- CRRC2«-RF2)*C0SCALPHA2) 

C 

WRITECLU.200) TGI ,TG2,PHI , DP ,RPC1 , RPC2,RBC1 ,RBC2 ,RRC1 ,RRC2,RF1 , 
*RF2,RI1 ,RI2 .ALPHA! , ALPHA2.RTF11 ,RTF22 
200 FORMAT < 'TGI ,TG2 »',2F14.7/ 

* 'PHI ,DP « ' ,2F14. 7/ 

* 'RPC1.RPC2 t ' ,2F14. 7/ 
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4 'RBC1,RBC2 :',2F14.7/ 

4 / RRC1,RRC2 »',2F14.7/ 

t 'RF1 ,RF2 i ' , 2F14 . 7/ 

4 'RI 1 , R 1 2 * ' , 2F14 . 7/ 

4 'ALPHA1 , ALPHA2 «',2F14.7/ 

4 ' RTF11 , RTF22 *',2F14.7/) 

C 

C CALCULATION OF LIMIT RADII CRLM1 AND RLM2) 

C 

AUXl*ARCOS (RBC1/RAC1) 

AUX2-ARC0S CRBC2/RAC2) 

Cl 1»RAC2*SIN(AUX2)-RPC2*SINCPHI ) 

CI2-RAC1*SINCAUX1)-RPC1*SINCPHI) 

RALR1* ATAN C CRPC1*S INCPHI)-CIi)/RBCl) 

RALR2* AT AN C CRPC2*S I N CPHI ) -CI2)/RBC2) 

RLM1-RBC1/COSCRALR1) 

RLM2-RBC2/C0SCRALR2) 

C 

WRITECLU,15) AUX1 , AUX2,CIi ,CI2,RALR1 , RALR2 , RLM1 ,RLM2 
15 FORMAT C ' AUX1 , AUX2 i',2F14.7/ 

1 'CI1 ,CI2 t * ,ZF14.7/ 

2 'RALR1 , RALR2 *',2F14.7/ 

3 'RLM1 ,RLM2 . i',2F14.7/) 

RR1-RAC1-RLM1 

RR2-RAC2-RLM2 

IF CRLM1 . LE. RRC1) RR1-RAC1-RTF11 
IF CRLM2.LE.RRC2) RR2-RAC2-RTF22 

220 FORMAT C '0' ,2X, 'NOTE* RADIUS OF THEORETICAL LAST POINT OF CONTACT 
40N GEAR 1 IS LESS THAN THE ROOT CIRCLE RADIUS.'/ 

4' TO AVOID INTERFERENCE PROBLEMS , THIS TOOTH SHOULD BE UNDERCUT'/) 

221 FORMAT C'G' ,2X, 'NOTE* RADIUS OF THEORETICAL LAST POINT OF CONTACT 
40N GEAR 2 IS {.ESS THAN THE ROOT CIRCLE RADIUS.'/ 

4' TO AVOID INTERFERENCE PROBLEMS, THIS TOOTH SHOULD BE UNDERCUT'/) 
C 

LI1*IFIXCCRR1/ CRAC1-RRC1) )*Li) 

LI2MFIXCCRR2 / CRAC2-RRC2) )*L2) 

RINCIi-RRl/FLOATCLIl-1) 

RINCI2-RR2/FL0ATCLI2-1) 


RA1 ROLL ANGLE, GEAR 1 

RATMi — LENGTH OF TIP MODIFICATION IN DEGREES OF ROLL, GEAR 1 

RATI ROLL ANGLE AT TIP OF GEAR 1 

RATH ROLL ANGLE AT TOP OF INVOLUTE , GEAR 1 

RABI1 ROLL ANGLE AT THE BOTTOM OF INVOLUTE, GEAR 1 

C RABM1-— LENGTH OF ROOT MODIFICATION IN DEGREES OF ROLL, GEAR 1 

C PATM1 MAGNITUDE OF PARABOLIC MODIFICATION AT THE TIP, GEAR 1 

C PABM1 MAGNITUDE OF PARABOLIC MODIFICATION AT THE BOTTOM, GEAR 1 

C STTM1 MAGNITUDE OF STRAIGHT LINE MODIFICATION AT THE TIP, GEAR 1 

C STBM1— -MAGNITUDE OF STRAIGHT LINE MODIFICATION AT THE BOTTOM,GEAR 

C PERI MAX MANUFACTURED PROFILE ERROR, GEAR 1 

C PAP1-— ANGLE FROM START OF SIN. ERROR TO START OF INVOLUTE, GEAR 1 

C RTI 1 RADIUS TO TOP OF INVOLUTE , GEAR 1 

C RBI1 RADIUS TO BOTTOM OF I NVOLUTE , GEAR 1 

C 
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C 

C*****CALCULATION OF ROLL ANGLES TO INVOLUTE TOP, PITCH, AND BOTTOM; AND 
C*****RADIAL DISTANCES TO (UN)MODIFIED INVOLUTE TOP, PITCH, AND BOTTOM 
C 

RAT1«T0DEGR*SQRTCCRAC1/RBC1)**2 - 1.) 

RAT2»T0DEGR*SQRT C (RAC2/RBC2) **2 - 1.) 

RAMI * R ATI -R ATM 1 
RAM2-RAT2-RATM2 

RTI1-RBC1XSQRTCCRAM1/T0DEGR)**2 ♦ 1.) 

RT 1 2»RBC2*SQRT ( CRAM2/T0DEGR) **2 ♦ 1.) 

C 

RAP-TODEGRXTANCPHI) 

R AT IP1-R AMI-RAP 
RATI P2*RAM2- RAP 
C 

RABI1»T0DEGR*SQRTCCRLM1/RBC1)**2 - 1.) 

RABI2-T0DEGR*SQRT ( CRLM2/RBC2}«2 - 1.) 

RAN1-RAB I 1+RABMi 
RAN2-RABI2+RABM2 

RBI1-RBC1*SQRTCCRAN1/TQDEGR}**2 ♦ 1.) 
RBI2-RBC2*SQRTCCRAN2/T0DEGR)**2 ♦ 1.5 
C 

C*****CALCULATI ON OF RRO 
C 

230 TP-P I*. 5/DP 

PHIB1-ARCOSCRBC1/RLM1) 

BETAB1*PI/C2.*TG1)+(TANCPHID-PHI)-(TANCPHIB1)-PHIB1} 

IF CRLM1 . GE. RTF11) GO TO 285 

ARG1«CCRRC1+RF1)**2 ♦ RLM1**2 - RF1**2D / C2. *RLM1*CRRC1*RF1) 5 
ALPHA1 *ARCOS CARG1) 

285 RROl -RRCixCOS C BET AB1 +ALPHA1} 

C 

XMI N1 m RTFll*S I N C BETAS 1) 

P API -PAPl/TODEGR 
C 

PHIB2-ARC0SCRBC2/RLM25 

BETAB2»PI / C2. *TG2) + CTANCPHI 5 -PHI 5 - CTANCPHIB25 -PHIB25 
IF CRLM2. GE. RTF22D GO TO 290 

ARG2»CCRRC2+RF2)**2 ♦ RLM2**2 - RF2**2) / C2. *RLM2*CRRC2*RF2D ) 
ALPHA2* ARCQS CARG2) 

290 RR02*RRC2*C0S CBET AB2 + ALPHA2) 

C 

XMIN2*RTF22*SI NCBETAB2) 

PAP2-PAP2/T0DEGR 

C 

WRITECLU ,291) BETAB1 , BETAB2 , ARG1 , ARG2 , ALPHA1 , ALPHA2 , RROl , RR02 
291 FORMAT C'BETAB1,BETAB2 « ' ,2F14.7/ 

2 / ARG1,ARG2 i',2F14.7/ 

3 9 ALPHA1 , ALPHA2 i',2F14.7/ 

4 9 RROl , RR02 :',2F14.7/) 

C 

C 

C*****CALCULATION OF INVOLUTE PROFILE COORDINATES, GEAR 1 
C 


DO 330 J»1 , L 1 1 
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ET1-0. 

PEI *0 . 

C 

Ri*RACl-RINCIl*CFLOATCJ-D) 

PHU-ARCOSCRBC1/R1) 

BETA1-PI/(2.*TG1) ♦ CTAN CPH I) -PH I ) - (TANCPHI 1) -PHI 1) 

THETA1 ( J) -PH 1 1-BETA1 
RA1-T0DEGR*TANCPHI 1) 

IF CJ.EQ.l) RA1-RAT1 
C 

C*****CHECK FOR TIP MODIFICATIONS 
C 

IF CRATM1.EQ.0. .OR.RA1.LT.RAM1) GO TO 300 
IF CSTTM1.EQ. 0. 5 ET1«PATM1*C1 . -SQRTC CRAT1-RA1) /RATM1) ) 

IF CPATM1 . EQ . 0 . ) ET1-STTM1*CRA1-RAM1) /RATM1 
C 

C*****CHECK FOR SINUSOIDAL ERRORS 
C 

300 IF CPER1.EG.0.) GO TO 310 

IF CRA1.GT.RAM1) PEI -PERILS IN CP API) 

IF CRA1.LT.RAM1) 

4 PE1-PER1*SIN( CPI*CRAM1-RA1)*CYC1/RATIP1) ♦PAP1) 

C 

C*****CHECK FOR BOTTOM MODIFICATIONS 
C 

310 IF CRABM1.EQ.0. . OR. RAi . GT. RANI) GO TO 320 

IF CSTBM1.EQ.0.) ETi«PABMi*(l . -SORT C CRA1-RAB 1 1) /RABM1)) 

IF CPABM1.EQ. 0. ) ET1 -STBM1* (RAi -RANI ) /RABMi 
C 

320 X1CJ)-R1*$INCBETA1) + CET1+PE1) /C0SCTHETA1 C J) ) 
Y1CJ)-R1*CQSCBETA1) - RR01 

IF CJ.NE.l) THETA1 C J-l) -ATANC CX1(J)-X1CJ-1))/CY1CJ-1)-Y1(J))) 
330 CONTINUE 
C 

C*****FILLET COORDINATE POINTS, GEAR 1 
C 

BETA 1- AT AN CXI CLI 1) / CY1 CLI 1) ♦RR01) ) 

RINCB1-CR1-RRC1) /FLOAT CL1-LI1) 

LI11-LI1+1 
DO 340 J-LI 11 ,L1 
RFILl-Rl-RINCBlxFLOAT CJ-LI 1) 

IF CRFIL1.GE.RTF11) ARCl-ALPHAi 

X-CCRRC1*RF1)**2+RFIL1**2-RF1**2)/C2.*RFIL1*CRRC1+RF1)) 

IF CX.GT.l.) X-1.0 

IF CRFIL1.LT. RTFil) ARC1-ARC0S CX) 

BETAF1-BETA1+ALPHA1-ARC1 
X1(J)-RFIL1*SI N CBETAF1) 

Y1CJ)-RFIL1*C0S(6ETAF1) - RR01 
340 THETA 1 CJ-1)-ATAN((X1CJ)-X1CJ-1))/(Y1(J-1)-Y1CJ))) 

THETA 1 CLI ) - . 5*P I - BETAFi 
C 

C*****CALCULATION OF INVOLUTE PROFILE COORDINATES, GEAR 2 
C 

DO 380 J-l , L 12 
ET2-0 . 
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PE2-0. 

C 

R2-RAC2-RINCI2*(FLOAT(J-100 

PHI2-ARC0SCRBC2/R2) 

BETA2«PI/(2.*TG20 ♦ (TAN (PH I 0 -PH I 0 - CTAH (PH I 2) -PH I 2) 

THETA2(J0*PHI2-BETA2 

RA2»T0DEGR*TAN (PH 12) 

IF (J.EQ.10 RA2-RAT2 
C 

IF (RATM2.°EQ.0. .QR.RA2.LT.RAM20 GO TO 350 
IF (STTM2.EQ.0.0 ET2*PATM2* (1 . -SORT ((RAT2-RA10 /RATM20 0 
IF (PATM2.EQ.O.O ET2-STTM2* (RA1-RAM20 /RATM2 
C 

350 IF (PER2. EQ. 0 . 0 GO TO 360 

IF (RA2.GT.RAM20 PE2-PER2*SIN(PAP20 
IF (RA2.LT.RAM20 

4 PE2-PER2*SIN((PI*(RAM2-RA20*CYC2/RAT1P20+PAP20 
C 

360 IF (RABM2.EQ.0. . OR. RA2. GT. RANI) GO TO 370 

IF (STBM2.EQ.0.) ET2»PABM2*(1 . -SORT ( (RA2-RAB 1 20 /RABM20 0 
IF (PABM2.EQ.O.O ET2-STBM2* (RA2-RAN20 /RABM2 
C 

370 X2 ( JO *R2*S I H (BETA 2) ♦ CET2+PE20 /COS (THETA2 ( JO 0 
Y2 ( JO «R2*CGS (BETA20 - RR02 

IF (J.NE.10 THETA2 ( J-10 *ATAN( (X2(JO-X2(J-lO0/(Y2(J-lO-Y2(JO0O 
380 COHTI HUE 
C 

C*****FILLET COORDINATE POINTS, GEAR 2 
C 

R I NCB2* (R2-RRC20 /FLOAT(L1-LI20 
C 

WRITE(LU , 160 RLM1 , RLM2 ,R1,R2,RINCB1,RINC82> RTF 11 , RTF 22 
16 FORMAT ( 'RLM1 ,RLM2 »',2F14.7/ 

1 'R1,R2 t * ,2F14. 7/ 

2 'RINC81 ,RINCB2 «',2F14.7/ 

3 a RTF11 , RTF22 »',2F14.7/0 

C 

LI 22-L I 2+1 
DO 390 J-L I 22 , L2 
RFIL2*R2-RI NC82*FL0AT ( J-L 1 20 

X-((RRC2 + RF20m2 + RFIL2**2-RF2**20/(2.*RFIL2*(RRC2*RF20 0 
IF (RFIL2.GE.RTF220 ARC2-ALPHA2 
IF (RFIL2.LT. RTF220 
4ARC2* ARCOS (XO 
BETAF2-BETA2+ALPHA2-ARC2 
X2(J0«RFIL2*SIN(B£TAF20 
Y2( JO *RFI L2*C0S (BETAF20 - RR02 
390 THETA2 ( J-10 *ATAN((X2(JO-X2(J-10 0/(Y2(J-10-Y2(JOOO 

THETA2 (L20 ■ . 5*P I - BETAF2 
C 

C CONTACT RATIO CALCULATIONS 
C 

AUX1*ARC0S (RBC1 /RTI 1 0 
AUX2* ARCOS (RBC2/RTI 20 
AL1»ARCOS(RBC1/RBI10 
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AL2-ARC0SCRBC2/RBI27 

CRU1"RPC1*CSINCPHI7 -COSCPHI 7*TAN CALI 7 5 / BP 
CRU2»RPC2*CSIN(PHI7 -COSCPHI 7*TAN CAL27 5 /BP 
CR1-CCRTI27*SINCAUX27-RPC2*SINCPHI77/BP 
CR2*((RTI17*SINCAUX17 -RPC1*SINCPH I 7 7 /BP 
C 

WR ITE CLU , 177 CRU1,CRU2,CR1,CR2,RBC1 ,RBC2,RBU ,RB12 
17 FORMAT C 'CRU1 ,CRU2 :',2F14.7/ 

1 'CR1.CR2 » ' ,2F14 . 7/ 

2 'RBC1 , RBC2 j',2F14.7/ 

3 ' RB 1 1 , RB 1 2 ■ ' ,2F14. 7/) 

C 

IFCCRBC1.GE.RBI17. AND. (RBC2. GE. RBI 27 7 GO TO 18 
IF CCRU1 . LE. CR1) CR1-CRU1 
IFCCRU2.LE.CR27 CR2-CRU2 
IFCCRU1.GT.CR17 CR1-CR1 
IFCCRU2.GT. CR27 CR2-CR2 
18 CR“CR1 *CR2 
SP-CRi*BP 
EP-CR2*BP 
SE-CRWBP 
IHF - 1 

12 FORMAT CT46, 'THE THEORETICAL CONTACT RATIO -'.F8.3/7 
C 

C*»***PIT INSERTION 
C 

0EEP1-0.0 
OEEP2-0. 0 

IF CDEEP1.EQ. 0. 0) GO TO 4561 
DO 4560 I • IP IT11 , IPIT12 

4560 X1CI7-X1CI7-DEEP1 

4561 IF CDEEP2. EQ. 0 . 0) GO TO 4563 
DO 4562 I-IPIT21, IPIT22 

4562 X2CI7-X2CI7-DEEP2 

4563 CONTINUE 
C 

WRITE CLU, 45707 RAC1 ,RAC2 ,LI 1 ,L 1 2 , RF1 , RF2 ,RR01 , RR02 
4570 FORMAT C 'RAC1 ,RAC2 i',2F14.7/ 

1 'Ll 1 ,L 12 i ' ,2114/ 

2 'RF1 ,RF2 « ' ,2F14 , 7/ 

3 'RROl , RR02 «',2F14.7//7 

WRITECLU, 2927 PERI , PER2 , CYC1 ,CYC2 ,PAP1 , PAP2 

292 FORMATC'SINE ERRORS' ,6F11. 6/7 
C 

C NEW CODE FROM SLOWM FOLLOWS 
C 

DO 702 I-l.Ll 

W1CI7-X1CI7 

21(I7*RR01*Y1CI7 

RR1 C 1 7 »SQRT CW1 C I 7**2*21(17**27 

IFCRR1CI7.GT.RAC17 RR1CI7-RAC1 

W2CI7-X2CI7 

22(I7*RR02*Y2CI7 

RR2 C 1 7 "SORT CW2 C I 7 **2^22 Cl 7**27 

I F CRR2C I 7 . GT, RAC27 RR2CI7-RAC2 
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702 CONTINUE 

DO 703 I«1,L1 
IPP-I 

I F CRPC1 . GE. RR1 ( I 3 3 GO TO 704 

703 CONTINUE 

704 CONTINUE 
C 

WRITEC1 ,4571) 

4571 FORMATC'LIST DATA? CY/N] >_') 

REAOC1 ,45723 IPICK 

4572 FORMAT CA13 

IF CIPICK.EQ.1HN3 GO TO 4610 
C 

WRITECLU,45783 

4578 FORMAT C ’ I',8X,'X1', 12X, 'Y1',1QX, 'THETAl ' , 10X , 'X2' , 12X , 'Y2' , 

410X, 'THETA2'3 
DO 4608 I-l.Ll 

4608 WRITECLU,46093 I , XI Cl) ,Y1CI3 ,THETA1 C 10 ,X2C I) , Y2 C I) ,THETA2< 13 

4609 F0RMATCI3,6F14.73 
C 

4610 WRITEC1 ,4620} 

4620 FORMAT C 'WRITE TO DATA FILE? [Y/NI >_'3 
READC1, 45723 IPICK 
IF CIPICK.EQ.1HY3 CALL TRANS 
C 

END 
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C 

C 

c 

SUBROUTINE TRANS 
COMMON/ Cl /BUF1 C1200D 
C0MM0N/C2/BUF2 C16} 

C0MM0N/C3/BUF3C17) 

C 

DIMENSION IDCBC144} , INAMEC3} 

DATA INAME/2HDP , 2HR0 , 2HFL/ , I CODE/1/ 

C 

CALL OPEN C I DCB , IER, I NAME , 1 , -99,36) 

IF CIER.GT.O} GO TO 13 
C 

9 WR ITEC1 , 10) I ER , I CODE 

10 FORMATC'FMP ERROR AT IC0DE«',I2,' 

GO TO 50 

C 

13 I CODE* I CODE* 1 

CALL WR I TF C I DCB , IER, BUF 1,2400} 

IF C I ER- LT. 0} GO TO 9 
I CODE* I CODE-*’ 1 

CALL WRITFCIDCB, IER, BUF2, 32} 

IF CIER.LT.O} GO TO 9 
I CODE* I CQDE + i 

CALL WRITFCIDCB, IER, BUF3, 34} 

IF CIER.LT.O} GO TO 9 
C 

WR I TE Cl ,30} INAME 

30 FORMAT C 'DATA FROM PROFL WAS WRITTEN TO FILE 

C 

50 CALL CLOSECIDCB, IER} 

RETURN 

END 

C 

C 

C 

BLOCK DATA 

COMMON/ Cl /BUF 1 C1200) 

COMMON /C2/ El ,G1,PR1 ,YP1 ,RR01,RI1,FW1,XMIN1 , 

1 E2,G2,PR2,YP2,RR02,RI2,FW2,XMIN2 

COMMON/ C3/ P I ,PHI , TGI , TG2 , TP , PD1 ,PD2,RPC1 ,RPC2, 
1 RBC2 , C , SP , EP 

C 

DATA El/30. E06/ ,E2/30. E06/,PR1/. 285/ , PR2/ . 285/ 
DATA G1 / . 288/ , G2/ . 288/ , P I /3. 141592654/ 

C DATA TGI/14. / ,TG2/28- /, RI1/. 66 /,RI2/ 1.500/ 

DATA TGI /25. / ,TG2/24. /,RI 1/2. 2300/ ,RI2/2. 1300/ 
DATA FW1,FW2, TIN/1. 0,1. ,1500.0/ 

END 


PROGRAM ABORTED ' ) 


3A2} 


RAC1 ,RAC2,TIN ,RBCi , 
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FTN4 , L 

PROGRAM EXDEF 
C 

COMMON/ Cl /XI (100) , X2C100) , Y1C100) , Y2 C 1 00 ) , THETA1 Cl 00) ,7HETA2C100) , 
1 Wl (100) ,W2C100) ,21 Cl 00) ,22(10 0) ,R1 C10G) , R2C100) 

C0MM0N/C2/E1,G1 , PR1 , YP1 , RROl ,RI1,F1 ,XMIN1, 

1 E2 ,G2 , PR2 , YP2,RR02,RI2,F2,XMIN2 

COMMON /C4/DCP1 (100) ,DCP2C100) ,THETC1C100) ,THETC2C100) 

C 

° DIMENSION XC100) ,YC100) ,AC100) ,DCP(100) , THETA (100) ,BMLC100) 
DIMENSION MI Cl 00) ,THETACC100) , PL Cl 00) , VL C 1 0 0) , DM4 C 1 00 ) 

REAL Mil ,MI 2 ,MI 
C 

WR ITE (1 ,9000) 

9000 FORMAT C 'ENTER LU NUMBER OF OUTPUT DEVICE') 

READ (1 ,*) LU 
CALL ERLSTCLU) 

C 

CALL TRANR 
C 

Ll-100 

L2-L1 

KH-1 

KL-100 

C 

PI-3.141592654 

IG-1 

5 IFCIG.EQ.3) GO TO 150 
IFCIG.EG.2) GO TO 15 
E - El 
G - G1 
PR - PR1 
YP - YP1 
RRO - RROl 
R I « RI1 
XMI.N - XM INI 
F - FI 
LL - LI 

DO 10 I - 1 , LL 
XCI) - XI C I ) 

YCI) - Y1CI) 

THETACI) - THETA1CI) 

A ( I ) - 2 . *X C I ) *F 
10 MI CI)-(F*(2.*X(I))**3)/12. 

GO TO 25 
15 E - E2 
G - G2 
PR - PR2 
YP - YP2 
RRO - RR02 
RI - RI2 
XMIN - XMIN2 
F - F2 
LL - L2 

DO 20 I - 1 , LL 


YCI) » Y2CI) 

THETA C 1 ) - THETA2C I ) 

AU) - 2.»XCI)*F 
20 MI CI)»CF*C2.*X(I))**3)/12. 

25 BW*2 . *XMI N 

IF CIG.EQ.l) YH-Y1C1) 

IF CIG.EQ.l) YL-Y1C100) 

IF CIG.EQ.2) YH*Y2C1) 

IF CIG.EQ.2) YL-Y2C100) 

DO 30 L - 1 , LL 
XH « LL *1 - L 
I F CYCXH) . GE. YH) GO TO 40 
30 CONTINUE 
40 DO 50 XL - 1,LL 

IFCYCXD.LE.YL) GO TO 60 
50 CONTINUE 
60 DO 70 L - 1,LL 
DCPCL) - 0.0 
THETACCD-0.0 
70 CONTINUE 
QQ - 1.0 

DO 110 X - XH.XL 
THCTACCX) - THETACX) 

P - QQ*SINCTHETACCX)) 

V - QQxCOS CTHETAC CX) ) 

YCT - YCX) - XCX)xTAN CTHETAC CX)) 

BR 1 - C QQxCCOS CTHETAC CX) ) )xx2) /E 

BR2 • C5. 2*(YCT**2) )/CBWxx2) ♦ YCT/BW 

BR3 » 1 . 4xCl . + C CTAN CTHETAC CX) ))x*2)/3.1) 

DCPBR » BR1XCBR2 ♦ BR3) 

T - VxCYCX) ♦ RRO) 

PSIRD - CT/C4.*PI*F*G>)*C1./CRI**2)-1./CRR0**2)> 
RCP - SORT C CRRO ♦ YCX))xx2 ♦ XCX)x*2) 

THETAQ - ATANCXCX)/CRRO ♦ YCX))) 

ARG ■ ABSCTHETACCX) ♦ THETAQ) 

DCPRD - RCPxPS I RDxCOS CARG) 

DO 80 L - 1 , LL 
BMLCL) ■ 0.0 
PL CL) - 0.0 
80 VLCD-0.0 

DO 90 J - X , LL 

BM - CY CX) -Y C J) )xv - XCX)*P 

BMLCJ)-BMxBM/CMI CJ) xQQ) 

PL C J) «PxP/ (ACJ)xQQ) 

90 VLCJ)-VXV/CACJ)xQQ) 

DCPBM - 0.0 

DCPP - 0.0 

DCPV • 0.0 

N ■ LL - 1 

DO 100 J • X , N 

OELTAY - YCJ) - YCJ-1) 

DCPBM * DCPBM ♦ ( CBMLC J) »BML C J*l) ) x. 5) xOELTAY 
DCPP ■ DCPP ♦ CCPLCJ)*PLCJ*1))*.5)*0ELTAY 
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DCPV - OCPV ♦ C CVL C J) *VLC J* 1) ) *.5)*DELTAY 
100 CONTINUE 

DCPCK) « DCPRD ♦ DCPBR ♦ DCPBM/E ♦ DCPP/E ♦ C1.2*DCPV)/G 
IF CK.LT.ll) WRITECLU.105) DCPRD , DCPBR ,DCPBM , DCPP , DCPV 
105 FORMAT C5E14 . 7) 

110 CONTINUE 

IFCIG.EQ.2) GO TO 120 
DO 115 I - 1 , LL 

dcpici) - dcpci) 

115 THETC1CD-THETACCI) 

IG-IG+1 
GO TO 5 

120 DO 125 I - 1 , LL 
DCP2CI) - DCPCI) 

125 THETC2 Cl) “THETAC Cl) 

IG* IG*1 
GO TO 5 
C 

150 CALL TRANW 
C 

WRITEC1 ,155) 

155 FORMAT C 'LIST DATA? [Y/N]') 

READC1 >156) IPICK 

156 FORMAT CAD 

IF CIPICK.EQ.1HH) GO TO 159 
WRITECLU.157) 

157 FORMAT C 'XI ' ,5X , 'Y1 ' ,5X , 'DCP1 # , 5X , ' X2 # ,5X , 'Y2 ' , 5X , 'DCP2' ) 

WRITE CLU , 158) C I ,X1 C I ) , Y1 C I ) , DCP1 C I ) , X2C I ) , Y2 C I ) ,DCP2C I ) , I -1 , 100) 

158 FORMAT CI4,2F11.7,E13.7,2X,2F11.7,E13.7) 

159 CONTINUE 
C 

999 END 




* i = 
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SUBROUTINE TRANR 
COMMON/C1/BUF1C1200) 

C0MM0N/C2/BUF2 C16) 

DIMENSION IDCBC144) , INAMEC3) 

DATA I NAME/2HDP > 2HR0 , 2HFL/ , ICODE/1/ 

CALL OPEN C I DCB , IER , I NAME, 0 , -99,36) 

IF CIER.GT.O) GO TO 13 

WRITE Cl, 10) IER , ICODE 
10 FORMAT C 'FMP ERROR t',I5,' AT IC0DE- / ,I2, / PROGRAM ABORTED') 

GO TO 50 
C 

13 IC0DE“ ICODE+1 

CALL READFCIDCB, IER.BUF1) 

IF CIER.LT.O) GO TO 9 

I CODE* I CODE + 1 

CALL READFCIDCB, IER, BUF2) 

IF CIER.LT.O) GO TO 9 
IC0DE-IC0DE+1 
C 

WRITEC1 ,30) INAME 

30 FORMAT C'DATA FROM ',3A2,' WAS READ') 

C 

50 CALL CLOSECIDCB, IER) 

RETURN 

END 
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C 

C 

C 

SUBROUTINE TRANW 
COMMON /C4/BUF 4 (400) 

C 

DIMENSION IDCBC144) , INAMEC3) 

DATA INAME/2HDD ,2HEF,2HL /,ICODE/l/ 

C 

CALL OPEN C I DCB, I ER, I NAME, 0,-99, 36) 

IF CIER.GT. 0) GO TO 13 

WRITEC1 ,10) I ER , I CODE 
10 FORMAT C 'FMP ERROR t',I5,' AT ICODE-' , 12, ' PROGRAM ABORTED ' ) 

GO TO 50 
C 

13 ICODE-ICODE-1 

CALL WRITFCIDCB, IER,8UF4,800) 

IF CIER.LT.O) GO TO 9 
ICODE-ICODE+1 
C 

WRITEC1 ,30) INAME 

30 FORMAT C 'DATA FROM DEFL WAS WRITTEN TO FILE ',3A2) 

C 

50 CALL CLOSEC IDCB , I £R) 

RETURN 

END 

C 

C 

c 

BLOCK DATA 

COMMON/ Cl /BUF 1 C 1200) 

COMMON /C2/BUF2C 16) 

C0MM0N/C4/BUF4 C400) 

END 
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C <83061 1 . 1023) 

FTN4,L 

PROGRAM EXSTA ,3 
C 

C*****THIS PROGRAM PERFORMS THE STATIC ANALYSIS OF AN EXT/EXT SPUR GEAR SET 
C 

COMMON /Cl /XI (100) , X2C100) , Y1 Cl 0 0) , Y2C100) ,THETA1C100) ,THETA2C100) , 

4 W1C100) ,W2C100) ,Z1C100) ,Z2C100) ,R1C100) ,R2C100) 

C0MM0N/C2/El,Gl,PRl,YPl,RR01,RIl,Fi,XMINl, 

4 E2,G2,PR2,YP2,RR02,RI2,F2,XMIN2 

C0MM0N/C3/P I , PH I , TGI , TG2 ,TP , PD1 , PD2 , RPC1 , RPC2 , RAC1 , RAC2 , T I N , RBC1 , 

4 RBC2,C,SP,EP 

COMMON / C4 /DCP1 (100) ,DCP2C100) ,THETC1C100) ,THETC2C100) 

COMMON/ C5/ PS 1 1SL , PS 1 1EL , PS 1 2SL , PS 1 2EL » DELTA 1 , DELTA2 , TDEFL1 C5 ,50) , 

4 TDEFL2 C5 ,50) 

COMMON/ C6/L1 > L2 , 1 1 , 1 R1S > I R2E , INSTN 
COMMON / C7 /BUF7 C708) 

DIMENSION INAM1C3) , 1NAM2C3) , INAM3C3) 

C 

C 

ARC0SCX)-PI/2. -ATANCX/SQRT Cl-X**2)) 

DATA I NAM1 /2HPA > 2HRT, 2H1 / , I NAM2/2HPA , 2HRT , 2H2 / 

DATA I NAM3/2HPA , 2HRT > 2H3 / 

C 

WR ITE Cl , 998) 

998 FORMAT C 'LU FOR OUTPUT OEVICE?') 

READC1 ,*) LU 
C 

7050 CALL TRANR 
TIN-1500.0 
C GO TO 9989 
C 
C 

IBYPSS-1 

Ll-100 

L2-L1 

PSUSL-0. 

BUF7CD-0. 

C 

PAS-7 
LINF - 1 
P - TIN/RBC1 
F - FI 

IFCF2.LT. FI) F - F2 
C 

WR I TE Cl , 99) 

99 FORMAT C 'ENTER NUMBER OF ITERATIONS Cl - RIGID * 2 - DEFLECTED! ' ') 
READC1 >*) ITER 
DO 120 11*1,1 TER 
WRITECLU ,9900) 

9900 FORMAT C/ 'CALL EXEC FOR PARTI ') 

C 

ASSIGN 100 TO INSTN 
CALL EXECC8, INAM1) 

100 CONTINUE 


i 
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C 

WRITECLU ,9910) 

9910 FORMATC/'CALL EXEC FOR PART2 ' ) 

C 

ASSIGN 110 TO INSTN 
CALL EXECC8, INAM2) 

110 CONTINUE 
C 

120 CONTINUE 
C 

WRITECLU ,9930) 

9930 FORMATC/'CALL EXEC FOR PART3? CY/N] > _ ') 
READC1 , 130) IPICK 
130 FORMAT CA1) 

IF CIPICK.EQ. 1HY) CALL EXECC8, INAM3) 

C 

END 



c 

c 

c 
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SUBROUTINE TRANR 
C0MM0N/C1/BUF 1 C 1200) 

COMMON / C2/ BUF2 C 16) 

C0MM0N/C3/BUF3C17) 

C0MM0N/C4/BUF4 C400) 

C 

DIMENSION IDCBC144) , INAM1C3) , INAM2C3) 

DATA INAM1/2HDP ,2HR0 , 2HFL/ ,IC0DE/1/ 

DATA INAM2/2HDD ,2HEF ,2HL / 

C 

CALL OPENCIDCB, IER, INAM1, 0,-99, 36) 

IF CIER.GT.O) GO TO 30 
C 

10 WRITE Cl , 20) I ER , ICODE 

20 FORMAT C 'FMP ERROR *',I5,' AT ICODE-', 12,' PROGRAM ABORTED') 

GO TO 50 
C 

30 ICODE* ICQDE+1 

CALL READF CIDCB , IER,BUF1) 

IF CIER.LT.O) GO TO 10 

ICODE- I CODE+1 

CALL READF CIDCB , IER ,BUF2) 

IF CIER.LT.O) GO TO 10 

ICODE- I CODE+1 

CALL READF CIDCB, IER,BUF3) 

IF CIER.LT. 0) GO TO 10 
I CODE- 1 CODE + 1 
C 

WRITE Cl ,40) INAM1 

40 FORMAT C 'DATA FROM ',3A2,' WAS READ') 

C 

50 CALL CLOSE CIDCB , IER) 

C 

CALL OPENCIDCB, IER, INAM2, 0,-99, 36) 

IF CIER.GT.O) GO TO 70 
C 

60 WRITEC1 , 20) IER, ICODE 

GO TO 90 
C 

70 ICODE* ICODE+1 

CALL READF CIDCB, IER,BUF4) 

IF CIER.LT.O) GO TO 60 
ICODE* I CODE+1 
C 

WRITEC1 , 40) INAM2 

80 FORMATC'DATA FROM ',3A2,' WAS READ') 

C 

90 CALL CLOSEC IDCB , IER) 

RETURN 

END 
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c 

c 

c 

PROGRAM PARTI, 5 

COMMON/C1 /XI (100),X2(100),Y1C100) ,Y2C100) .THETA1C100) ,THETA2C100) , 

* W1C100),W2(100),21C100),22(100),R1C100),R2C100) 
C0MM0N/C2/E1 ,G1,PR1,YP1,RR01,RI1,F1,XMIN1, 

* E2 ,G2,PR2 , YP2 ,RR02 ,RI2,F2,XMIN2 

COMMOH/C3/PI ,PH1 ,TG1 ,TG2 , TP , PD1 , PD2 , RPC1 , RPC2 , RAC1 , RAC2 , T I H , RBC1 

* RBC2,C,SP,EP ’ 

C0MM0N/C4/DCP1 (100) ,DCP2(100) , THETC1 Cl 00 ) , THETC2 Cl 00) 

C0MM0N/C5/PSI 1SL.PS11EL.PS I2SL, PS I 2EL , DELTA1 , DELTA2 , TDEFL1 (5 , 50 ) 

‘ TDEFL2(5,50) 

COMMON/C6/L1 ,L2, II, IRIS, IR2E, INSTN 

DIMENSIOH U1(100),U2(100) , VI Cl 00) , V2(100) , CDEF(50) 

ARCOS(X) -PI/2. -ATAH(X/SQRT(1-X**2)) 

C 

AB » SORT (R AC 1**2-RBC1**2) ♦SORT (RAC2**2-RBC2**2) -C*SIN(PHI) 

E1B-SQRT (RAC1**2-RBC1**2) 

E1A-E1B-AB 

E1P-RPC1*SIN(PHI) 

AP-E1P-E1A 

P8-AB-AP 

SP-AP 

EP-PB 

C 

WRITEC1 ,2793 

279 FORMAT C 'ENTER OUTPUT DEVICE'} 

READC1 ,*} LU 

C 

IF CI1.EQ.2} GO TO 47 
C 

WRITE CLU , 280} SP,EP 

280 FORMATO'SP i ' , F12. 7 ,3X , 'EP »',F12.7) 

11-100 

L2-L1 

US - -(SP)*COS(PHI) 

VS - - (SP)xS I NCPHI } ♦ RPC 1 
UE - EP*COS(PH I } 

VE - EP*S INCPHI } ♦ RPC1 
R1S » SQRTCUS*»2 ♦ VS**2) 

R2S-SQRT (US**2» (C-VS)**2) 

R1E-SQRT (UE**2*VE**2) 

R2E - SORT CUE**2 ♦ (C-VE)**2) 

ARG1 - ARCOSCRBC1/R1S} 

BETA1S - TP/PD1 ♦ (TAN(PHI) -PHI) - (TAN(ARGl) -ARG1) 

ARG2 - ABS (US) /VS 

PSUSL - PI/2. ♦ ATAN(ARG2) ♦ BETA1S 

ARG1 • ARCOSCRBC1/R1E) 

BETA1E - TP/PD1 ♦ (TAH(PHI)-PHI) - CTANCARG1) -ARG1) 

ARG2 • VE/UE 

PSUEL - ATAN(ARG2) ♦ BETA1E 
ARG1 » ARC0S(RBC2/R2S) 

BETA2S - TP/PD2 ♦ <TAN(PHI ) -PH I ) - (TAHCARG1) -ARG1) 

ARG2 ■ ABS (US) / (C-VS) 



PSI2SL * C3.*PI)/2. - ATANCARG2) + SETA2S 
ARG1 * ARC0SCRBC2/R2E) 

BETA2E ■ TP/PD2 ♦ (TAN (PHI ) -PH I ) - CTANCARGD-ARG1) 

ARG2 - UE/CC-VE) 

PSI2EL * C3.*PI)/2. ♦ ATANCARG2) ♦ BETA2E 
DELTA1 • CPS11SL - PS11ED/49. 

DEUTA2 » CTG1/TG2)*DELTA1 
C 

Y1S*R1S*CC0S CBETA1S) )-RR01 
Y1E*R1E*CC0SCBETA1E))-RR01 
Y2S-R2S*CC0SCBETA2S))-RRO2 
Y2E»R2E*CC0SCBETA2E))-RR02 
C 

DO 290 IR1S-1.L1 
IFCR1S.GE.R1CIR1S)) GO TO 291 

290 CONTINUE 

291 DO 292 IR2S-1.L2 

IF CR2S.GE.R2CIR2S)) GO TO 293 

292 CONTINUE 

293 DO 294 IR1E-1.L1 
IFCR1E.GE.R1CIR1E)) GO TO 295 

294 CONTINUE 

295 DO 296 IR2E-1.L2 

IF CR2E.GE. R2CIR2E)) GO TO 297 

296 CONTINUE 

297 CONTINUE 

WR ITECLU ,9000) IRIS , Y1S , IR2S , Y2S , I R1E , Y1E , I R2E , Y2E 

9000 FORMAT C// 'THEORETICAL INITIAL AND FINAL POINTS OF CONTACT' 
t /1X,4(I8,F11.7,4X)) 

WRITECLU,8900) R1S.R1CIR1S) , R2S , R2C I R2S) ,R1E , R1 C I R1E) , R2E ,R2C I R2E) 
8900 FORMATC 'THEORETICAL AND ACTUAL RADII TO CONTACT POINTS'/IX, 
t 4 C2F11 . 7 , 4X) ) 

47 CONTINUE 

PSS1SL-PSUSL 

PSS1EL-PSI1EL 

PSS2EL-PSI2EL 

PSS2SL-PSI2SL 

INT-50 

WRITE CLU, 9001) PS 1 1SL , PS 1 1EL , PS I2SL , PS 1 2EL , DELTA1 , DELTA2 

9001 FORMATC 'THEORETICAL INITIAL AND FINAL ANGLES OF CONTACT', 
t', ANGULAR INCREMENTS'/4F11. 7 ,3X ,2F11 . 7) 

V1SP-0.0 
U1SP-0.0 
V2SP-0. 0 
U2SP-0.0 
V1EP-0.0 
U1EP-0. 0 
V2EP-0. 0 
U2EP-0, 0 
Ull-0. 0 
U22-0. 0 
U12EP-0. 0 
U12SP-0. 0 
MMC-0 
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KKKK- C2*L15 *10 
DELT *0.2 
HUM-75 
MLIM-NLIM 
ML IM1 -2*HL I M 
ML I Ml -NL I Ml 
Lll-Ll-1 
L22-L2-1 
IRDEL-30 

IR1S1-IR1S- IRDEL 
IR1S2-IR1S+I RDEL 

P1SL»PSS1SL*DELTA1*CFL0ATCNLIM-155*DELT 
P2SL-PSS2SL-DELTA2*CFLOATCNLIM-155*DELT 
0 IF1- CY1 C15-Y1 CL15 5 / CFLOAT CL15 5 
DIF2-CY2C15-Y2CL255/CFL0ATCL255 
IFCDIF1.GE. DIF25 DIFF-DIF1 
IF CDIF2. GT. D IF15 DIFF-0IF2 
I F C I R1S1 . LE . 15 IR1S1-1 
IFCIR1S2.GT.L15 IR1S2-L1-1 
DIFF-9.99 

WRITE CLU ,90175 TDEFL1 (3, 1) ,TDEFL2C3,15 .TDEFLl C3.505 .TDEFL2C3.505 
9017 FORMAT C 'DEFL. ADDED AT ENTRANCE 2X , 2F11 . 7/ 

* 'DEFL. ADDED AT EGRESS ',2X,2F11.75 

49 CONTINUE 

IF CNNC. EQ. 8. OR. MMC. EQ. 5) D I FF-D I FF* CD I FF/3. 5 
WRITE CLU ,49005 PSS1SL , P1SL , PSS2SL ,P2SL 
4900 F0RMATC/'PSS1SL,P1SL',2F14.7/'PSS2SL,P2SL',2F14.75 
D I ST- 100 . 

DO 50 Nl-1 ,NLIM1 

PS 1 1SL -PI SL -DELTA 1* CFLOAT CN1 -15 5 *DELT 
PSI2SL-P2SL-DELTA2*CFL0ATCN1-155*DELT 
DO 51 L-1,25 
LC-L 

U2 CL5 -Z2 CL5*SI HCPSI 2SL-1 . 5*P I5-CW2CL5*TDEFL2C3,15 5*COS CPS I2SL-1.5* 
*P 1 5 

V2CL5-C-CZ2CL5*C0SCPSI2SL-1.5*PI5*CW2CL5*TDEFL2C3,155*SINCPSI2SL- 

il . 5*P 155 
U2SP-U2 CLC5 
V2SP-V2CLC5 
DO 52 J-IR1S1, IR1S2 
JC* J 

U1CJ5-CW1CJ5->TDEFL1C3,15 5*SINCPSI1SL5+Z1CJ5*C0SCPSI1SL5 
U1CJ»15-CW1CJ*15*TDEFL1C3,155*SINCPSI1SL5+Z1CJ»15*C0SCPSI1SL5 
VI CJ5--CW1 CJ5 *TDEFL1 C3, 15 5*COS CPSI1SL5+Z1 C J5 *S I N CPSI 1SL5 
IF CV1CJ5 .LT.V2SP5 GO TO 51 

V1CJ*15*-CW1CU*15*TDEFL1C3,155*C0SCPSI1SL5»Z1CJ*15*SINCPSI1SL5 

IF CV1 CJ5 . GE. V2SP. ANO. VI CJ*15 . GT. V2SP5 GO TO 52 

V12SP-V1CJ5-V2SP 

ARG11-V1 C J*15 -VI C J5 

ARGV1 1» CV2SP-V1CJ55*CU1CJ«15-U1CJ55 

U11*CARGV11/ARG115»U1CJ5 

U12SP-U11-U2SP 

MMC-8 

C WR ITE CLU , 52005 J , L , U12SP ,PSI 1SL 

5200 F0RMATC2I7, 2F14.75 
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IF CUil.GE.U2SP. AND. ABSCV12SP) .LE.DIFF. AND. U12SP.LE. 0.000100) 
l GO TO 53 
MMC-7 

IF CABSCU12SP) . LE. 0. 000010. AND. ABSCV12SP) . LE. DIFF) GO TO 5o 

IF CABSCU12SP).GT. ABSCDIST)) GO TO 52 

DIST-U12SP 

JCA-J 

LCA-L 

ANGS1-PSI1SL 

ANGS2-PSI2SL 

52 CONTINUE 
51 CONTINUE 
50 CONTINUE 

WRITECLU.5000) D I ST, JCA , LCA , ANGS1 , ANGS2 
5000 FORMATC/'MISSED INITIAL CONTACT POINT'/ 

♦'CLOSEST APPROACH IS',F11.7,' BETWEEN PTS.',I4,' AND', 14/ 

*' AT PS1I-',F10.7,' PSI2”' ,F10 . 7) 

MMC-5 

53 CONTINUE 

WR ITE CLU ,901 05 N1 , J ,L , Uli , VI C J) , U2 CL) , V2 CL) , U12SP , V12SP ,MMC 
9010 FORMATC 'ACTUAL START OF CONTACT'/IX, 

* 315, 3C2F11. 7, 4X) ,15X, 'CONTACT CODE -',13) 

4910 FORMAT (. 'HI , J ,L ,4I5,20X,'U11,V12SP ,U12SP- ' ,3F14. 7 ,/ , 

*' U1CJ) ,U2CL) ,V1CJ),V2CL)-',4F14.7,20X,'PSS1SL,PSS2SL-',2F14.7) 
YIS-ZICJO-RROl 
Y2S-Z2CLO-RR02 
V1SP-V2SP 
U1SP-U2SP 

P1EL-PSS1EL-DELTA1*CFL0ATCMLIM-1))*DELT 
P2EL*PSS2EL*DELTA2*CFL0AT CML IM-1) )*OELT 
IR2E1-IR2E-IRDEL 
IR2E2«IR2E*IRDEL 
IFCIR2E1.LE.1) IR2E1-1 
IFCIR2E2.GT.L2) IR2E2-L2-1 
WRITECLU.4920) PSS1EL ,P1EL , PSS2EL , P2EL 
4920 FORMATC/ 'PSS1EL.P1EL' ,2F14 . 7/ 'PSS2EL . P2EL ' ,2F14.7) 

DO 60 M1-1.MLIM1 

PS 1 1EL“P1EL*DELTA1*CFL0AT CM1-1))*0ELT 
PSI2EL*P2EL-DELTA2*CFL0ATCM1-1) )*DELT 
DO 61 J-1,25 
JE-J 

U1CJ)-CW1CJ)*TDEFL1C3, I NT) )*S IN CPS 1 1EL)+Z1CJ)*C0SCPSI 1EL) 

VI C J) *- CW1 CJ) *TDEFL1 C3, I NT) )*COS CPS 1 1EL) *Z1 C J)*S1NCPSI 1EL) 
U1EP-U1CJE) 

V1EP-V1CJE)' 

DO 62 L* IR2E1 , IR2E2 
LE-L 

U2CL)«Z2CL)*SINCPSI2EL-1.5*PI)-CW2CL)*TDEFL2C3, I NT) )*COS CPS I2EL 
4-1.5*PI) 

U2CL*1)-Z2CL*1)*SINCPSI2EL-1.5*PI)-CW2CL*1)*TDEFL2C3,INT))* 

»C0SCPSI2EL-1.5*PI) 

V2CL)»C-CZ2CL)*C0SCPSI2EL-1.5*PI)*CW2CL)*TDEFL2C3, 1 NT) )*S I N CPS 1 2EL 
t-1.5*PI)) 

IF CV2 CL) . GT. V1EP) GO TO 61 

V2 CL* 1 ) *C- CZ2 CL*1) *COS CPS I2EL- 1 . 5*P I ) ♦ CW2 CL ♦ 1 ) *TDEFL2 C3 , 1 NT) ) *SI N 



4CPSI2EL-1. 5*P I ) ) 

IF CV2CL).LE.V1EP.AND.V2CL*1).LT.V1EP) GO TO 62 
ARG22 - V2CL+i)-V2CL) 

ARGV22 - CV1EP-V2CL))*CU2CL + 1)-U2CL)) 

U22 - CARGV22/ ARG22) ♦U2 CL) 

U12EP-U1EP-U22 

V12EP - V2CL)-V1EP 

NNC - 5 

IF CU1EP . GE. U22. AND. ABSCV12SP) . LE.DIFF. AND. U12EP.LE. 0.000080) 
t GO TO 63 
NNC-6 

IF CABSCU12EP).LE.O. 000010. AHD . ABS CV12EP) . LE.DIFF) GO TO 63 

62 CONTINUE 
61 CONTINUE 
60 CONTINUE 

NNC-8 

63 CONTINUE 

WRITE CLU ,9020) M1,J,L,U1CJ) ,V1CJ) ,U22,V2CL) , U12EP , V12EP ,BPS 1 2L , 
i NNC 

9020 FORMAT C' ACTUAL END OF CONTACT' , /IX ,315 ,3C2F11 . 7 , 4X) ,F11 . 7 , 

*4X , 'CONTACT CODE -',13) 

DELTA1* CPS 1 1SL-PSI 1EL) /49. 

DELTA2- CTG1/TG2)*0ELTA1 

Y1E - 21 CJE) -RROl 

Y2E - 22CLE)-RR02 

V2EP-V1EP 

U2EP-U1EP 

R1S-SQRTCU1SP**2+V1SP**2) 

R1E»SQRT CU1EP**2+V1EP**2) 

88 CONTINUE 

IF CNNC. EQ. 8. OR.MMC. EQ.5) GO TO 49 
DELTA1 » CPSI1SL - PSI 1EL) / C INT-1) 

DELTA2 - CTG1/TG2)*DELTA1 

PRANG - ATAN CABS CR1E*S INCPS 1 1EL) -R1S*S INCPSI1SL))/ABSCR1E* 

*COS CPS 1 1EL) -R1S*C0S CPSI 1SL) ))*180./PI 
WR ITE CLU ,9021) PSI 1SL , PSI 1EL , PS 1 2SL ,PS 1 2EL , DELTA1 , DELTA2 

9021 FORMATC/'ACTUAL INITIAL AND FINAL ANGLES OF CONTACT', 

ANGULAR INCREMENTS'/4F11.7,3X,2F11. 7) 

WRITE CLU ,9030) MMC, NNC, PRANG 
9030 FORMATC 'CONTACT CODES *' ,216/ 'PRESSURE ANGLE « ' , F6. 2) 

C 

9989 GO TO INSTN 

9990 CONTINUE 
END 
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C 

C 

C 

C 

PROGRAM PART2.5 

COMMON/C1/X1 Cl 00) , X2C100) ,Y1 (100) , Y2C100) ,THETA1 C100) ,THETA2C100) , 
4 W1C100) ,W2(100) ,Z1C100) ,22(100) ,R1 (100) ,R2 (100) 

COMMON /C2/ El ,G1 , PR1 , YP1 ,RR01 ,RI1,F1,XMIN1, 

4 E2,G2,PR2,YP2,RR02,RI2,F2,XMIN2 

C0MM0N/C3/PI ,PHI , TGI ,TG2 ,TP, PD1 , PD2 , RPC1 , RPC2 , RAC1 , RAC2 .TIN , RBC1 , 

4 RBC2 , C ,SP ,EP 

COMMON / C4 /DCP1 C100),DCP2C100) ,THETC1C100) ,THETC2C100) 

COMMON /C5/ PS I 1SL , PS1 1EL , PSI2SL ,PSI2EL,DELTA1,DELTA2,TDEFL1C5,50) , 

4 TDEFL2 C5 ,50) 

COMMON /C6/U1 , L2 , 1 1 , IRIS , I R2E , I NSTN 

COMMON /C7/VELR C50) .PSI1C50) ,PS 1 2 (50) , Q C5 ,50) ,TPS(5,50) ,CMS(50) , 

4 ANGC8) 

C 

DIMENSION U1C100) ,U2(100) ,V1C100) .V2C100) .CDEFC50) , 

4RESIDLC2 ,50) ,THUVPC50) ,RC1(5,50) , 

4RC2C5 ,50) , RCC1 (5,50) ,RCC2C5,50) .RNCPC50) , 

4THBUVC50) ,TDEF1(50) .TDEF2C50) .HDEFC50) ,SVS(50) , 

4XC1(5,50) ,XC2(5,50) ,YC1(5,50) ,YC2(5,50) , PH I OP (50) , 

4PSI (50) ,HZPS(50) .PVSC50) .VELRATC100) .STATLDC100) 

REAL M, JD, JG1 , JG2 , JL , KDS , KGPAVG ,KLS ,LDS , LLS , LLR , 

4MI 1 ,MI 2 ,KT 

DIMENSION PSI1PC5) .PSI2PC5) ,UCPC5) ,VCPC5) , XCP1 C5) , 

4XCP2C5) ,YCP1(5) , YCP2C5) ,RCP1(5) ,RCP2(5) .RCCP1C5) , 

4RCCP2C5) .UC1C5) ,UC2(5) ,VC1C5) ,VC2C5) ,TDCP1(5) , 

4TDCP2C5) ,THCP1 (5) .THCP2C5) .PSIRD1C5) .PSIRD2C5) , 

4H1C5) ,H2C5) ,HDC5) .CDEFLC5) .STIFF C5) ,QTP(5) .PSUTPC5) , 

4PSI2TPC5) ,ZCP1(5) .ZCP2C5) .WCP1C5) .WCP2C5) ,TD(5) 

DIMENSION ITIME(5) , IPT1 (5) , IPT2C5) 

DATA IR1S2, IR2E2/70.72/, RPMIN .RPMOUT/30 . , 10 . / 

ARCOSCX) "PI /2. -ATANCX/SQRT Cl-X**2) ) 

C 

WR ITEC1 ,9000) 

9000 FORMATC 'ENTER LU OF OUTPUT DEVICE AND NO. OF ANGULAR INTERVALS') 
READC1 ,*) LU, INT 

CALL EXECC11 , ITIME) 

WR ITE (LU ,9001) ITIMEC5) , ITIMEC4) , ITIMEC3) , ITIMEC2) , ITIMEC1) 

9001 FORMAT C/' START PART2 EXEC' , 15 , 4 ( ' t ' , 1 2) ) 

WRITECLU,9002) PS 1 1SL.PSI 1EL.PSI2SL ,PS 1 2EL ,DELTA1 ,DELTA2,TG1 ,TG2 

9002 FORMAT C 'PS 1 1SL , PS 1 1EL ' ,2F11. 7 ,3X , 'PSI2SL ,PSI 2EL' ,2F11 . 7/ 

4 'DELTAl ,DELTA2' ,2F11.7 ,3X , 'TGI ,TG2' , 2F6. 1) 

WRITEC1 ,9003) 

9003 FORMAT C 'PRINT RESULTS? CY/N]') 

READC1 ,9004) IPICK 

9004 FORMAT CA1) 

C 

C 

Ll-100 

L2-L1 

P-TIN/RBC1 

F-Fl 
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C2* Cl . -PR1**2) /El ♦ Cl. -PR2**2)/E2 

C3-C2.XC1. -PR1**23)/CPI*F1*E13 

C4«PR1/C2.*C1.-PR1)3 

C5-C2.XC1. -PR2**233/CPI*F2*E23 

C6-PR2/C2.*C1.-PR233 

PSUEP-O. 

PSI2EP-0. 

DO 8 I - 1,50 
THUVPCI3-0.0 
VELRCI3-0.0 
TH8UVCI3-0.0 
RNCPCI) - 0 
TDEF1CI) » 0.0 
TDEF2CI3 » 0.0 
HDEFCI) - 0.0 
CDEFCI) - 0.0 
RESIDLCl.n-O.O 
RESIDLC2, ID«0. 0 
DO 8 K - 1,5 
QCK.I3 • 0.0 
YC1CK, I) - 0.0 

xcicic.n - o.o 

YC2CK.I3 - 0.0 
XC2CK.I) - 0.0 
RC1CK.I) - 0.0 
RC2CK.I3 - 0.0 
RCCICK.I) • 0.0 
RCC2CK,I> - 0.0 
TPSCIC.n - 0.0 
IPT1 OO “0 
IPT2CIO-0 
8 CONTINUE 

PSUTPC13-PSUSL - 4. »PI /TGI 
PSI2TPC13-PSI2SL ♦ 4.XPI/TG2 
PSUL - PSI 1TPC13 
PSI2L - PSI2TPC13 
PSI1LS - PSUSL 
PSULE - PSI1EL 
PSULS - 1. 0001*PSUSL 
PSULE - . 99999*PS 1 1 EL 
WRITECLU,90053 TIN,P,C,L1,L2 

9005 FORMAT C 'TIN' ,F9. 2, ' P',F9.2,' C',F9.5,' LI, L2', 2153 

DO 46 I - 1 , INT 

IF CIPICK.EQ. 1HY3 WRITECLU.4613 I 
461 FORMAT C' ANGULAR POSITION' , 133 
NCTP-0 
VU-0. 0 
DO 10 K - 2,5 
J - K - 1 

PSUTPCK3-PSUTPCJ3 ♦ 2.*PI/TG1 
PSI2TPCK3-PSI2TPCJ3 - 2.XPI/TG2 
10 CONTINUE 

PSU CI3 “PSI1TPC33 
PSI2CI3-PSI2TPC33 
DO 23 K - 1,5 
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PSIll-PSIiTPOO 

PSI22-PSI2TPCK) 

UCPCK) - 0.0 
VCPCK) -0.0 
ZCP1CK) - 0.0 
ZCP2 CIO - 0.0 
WCP1CIO - 0.0 
WCP2CIO - 0.0 
XCP1CIO - 0.0 
XCP200 - 0.0 
YCP1 CIO - 0.0 
YCP2CKD - 0.0 
RCP1CO - 0.0 
RCP2CIO - 0.0 
RCCPIOO-O.O 
RCCP2CJO -0. 0 
JCPT1-0 
JCPT2-0 
JCPBi-0 
JCPB2-0 
VEL1-0.0 
VEL2-0.0 

IF C CPSI 1TPOO . GT. PS1 1LS) . OR. CPSI 1TPOO . LT . PS 1 1 LED ) 00 TO 23 

I R1S22- I R1S2+1 

IPRIME-0 

IF CK.EQ.3) GO TO 8990 
ARG-CPSI1TPCIO-PSI 1TP C30 0 / DELTA 1 
IPRIME-IFIXCARG)*! 

IF CARG.LT.0) I PR IME- 1 FIXCARG) -1 
8990 N-I-IPRIME 

IF CCI-IPRIMED.LE.O.OR. C I -IPRIME} . GT. 5Q> GO TO 23 

REMEM1 -TDEFLl C3 

REMEM2-TDEFL2C3,N) 

IF CK.LE.3D GO TO 8993 
TDEFLlC3,N)-0.0 
TDEFL2C3 ,N) *0 . 0 
IF CU.EQ.i) GO TO 8993 
TDEFL1 C3,N)-RESIDLC1,N) 

TDEFL2C3,N}-RESIDLC2,N> 

8993 CONTI HUE 

DO 901 J-i , IR1S22 

Ui C J) « CW1 CJ) ♦TDEFLl C3 , N) )*SINCPS 1 1TP GO ) *Z1 C J)*COS CPS 1 1 TP CIO 3 

V1CJ)--CW1CJ)^TDEFL1C3,ND)MC0SCPSI1TPCK))*Z1CJ)*SINCPSI1TPCK}) 

901 CONTINUE 
IR2E22-IR2E2+1 

DO 902 L- 1 , 1 R2E22 

U2CL) -Z2CL)*SINCPSI 2TPOO -1.5*PI 3 - CW2CL) ♦TDEFL2C3 ,N3 )*C05CPS 1 2TP CK 
4)-1.5*PI) 

V2 CLD -C- C CZ2CL3*COSCPSI2TPOO -1 .5*PI3 ♦ CW2CL3 ♦TDEFL2C3 ,N33*SINCPS12 
*TPGO-1.5*PI333 

902 CONTINUE 

TDEFLl C3, N3-REMEM1 
TDEFL2C3,N3 -REMEM2 
11 CONTINUE 
MMM-91 
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C THIS SEGMENT LOCATES THE CONTACT POINT BETWEEN A GIVEN TOOTH PAIR 
IFCCPSI1TPCK).GT.PSULS).0R. CPSUTPCK).LT.PSI1LE)) GO TO 23 
DISTL » CRAC1 - RRC1)/CFL0ATCL1)*5.) 

GO TO 14 

13 DISTL ■ 2. *DISTL 

14 DO 15 J-1.IR1S2 

DIST ■ CABS CTANCPHI )*U1 C J) -VI C J) *RPC1) ) / CSQRT C CTANCPHI))**2«1. ) ) 
IFCDIST.LT. DISTL) GO TO 16 

15 CONTINUE 
GO TO 13 

16 IFCDIST.EQ.O.O) GO TO 21 
IFCJ.EQ.l) GO TO 18 
IFCU1 C J) . EQ. 0 . 0) GO TO 17 

ARGS » ABSCRPC1-V1CJ))/ABSCU1CJ)) 

SLOPE - ATANCARGS) 

I F C C SLOPE. GT .PHI). AND. CU1CJ).LT.O.O)) GO TO 19 
IFCCSLOPE.LT. PHI). AND. CU1CJ) . GT. 0. 0) ) GO TO 19 
GO TO 18 

17 IFCV1CJ) .LE.RPC1) GO TO 19 

C POINT IS ABOVE THE LINE OF ACTION 


18 UA 

m 

U1CJ) 

VA 

m 

VI CJ) 

UB 

m 

U1CJ+1) 

VB 

m 

V1CJ+1) 

GO 

TO 

l 20 


C POINT IS BELOW THE LINE OF ACTION 


19 

UA - 

UlCJ-U 


VA - 

V1CJ-1) 


UB - 

U1CJ) 


VB - 

V1CJ) 

20 

SLOPE 

- CVA-VB) / CUA- 


All - 

TAHCPHI ) 


A12 - 

RPC1 


A21 - 

SLOPE 


A22 - 

VB - SLOPE*UB 


UCPCK) • CA22-A12)/CA11-A21) 

VCPCK) - AllxUCPCK) ♦ A12 
GO TO 22 

21 UCPCK) - U1CJ) 

VCPCK) » VI CJ) 

22 CONTINUE 

RCP2N - SORT C CUCPCK)**2) ♦ CCC-VCPCK))**2)) 

JCP-J 

JDEL-40 

JCPB1-JCP+JDEL 

JCPT1-JCP-JDEL 

IF CJCPB1.GE. IR1S2) JCPB1-IR1S2 
IF C JCPT1 . LE. 1) JCPTl-l 
R2N»SQRTCCC-VCPCK))**2»UCPCK)**2) 

DO 165 L-1.IR2E22 
LCP-L 

IFCR2N.GE.R2CD) GO TO 166 

165 CONTINUE 

166 JCPB2*LCP* JDEL 
JCPT2-LCP-JDEL 



o o 
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IF (JCPB2.GE. 1R2E2) JCPB2* 1 R2E2 
IF C JCPT2. LE. 1) JCPT2- 1 

WR ITE CLU , 167) I , K , JCP , LCP , Ml C JCP) ,Z1CJCP) ,W2CLCP) ,Z2CLCP) 

167 FORMAT C/' POSITION' , 13 , 5X , 'PA I R ' , 1 2 , 5X , ' CAND I DATES ' , 2 1 5/ 

4 'LOCAL GEAR COOR. HO. l',2F10.7,' NO . 2 ' , 2F10 . 7) 

MMM-92 

C 

U1U2P«U1CJCP)-U2CLCP) 

V1V2P-V1 C JCP) -V2 CLCP) 

IFCCK.EQ.3) . AND. C I . EQ . 1) . AND . CV2SP. NE. 0 . 0) ) VCPGO -V2SP 
IFCCK.EQ.3). AND. C I . EQ. 1) . AND. CV2SP . NE . 0 . 0) ) UCPCK)-U2SP 
IFCCK.EQ.3). AND. C I . EQ. 1) . AND . CV2SP . NE. 0 . 0) ) GO TO 350 
IFCCK.EQ.3). AND. C I . EQ. 50) . AND . CV1EP . NE. 0 . 0) ) VCPOO-V1EP 
IF C CK. EQ. 3) . AND. C I . EQ. 50) . AND. CV1EP. NE. 0 . 0) ) UCPCK)-U1EP 
IFCCK.EQ.3). AND. CI.EQ.50). AND. CV1EP.NE.0.0)) GO TO 350 
DV11-0. 0 
Ull-0. 0 
U22-0. 0 
Vll-0. 0 

ALIM IT-0. OOGOi*Ci.*.35*FLOATC2-U)) 

DO 204 J- JCPT 1 , JCPB1 

IF CJ.EQ.JCPT1) COMPAR-lOO . 0 

UU-U1CJ) 

Vil-VICJ) 

VCPT2-V2 C JCPT2) -5. 

IF CV11.LT. VCPT2) MMM-3 
IF CV11 . LT. VCPT2) GO TO 199 
DO 202 L-JCPT2, JCPB2 
IF C V2 CL ♦ 1) . GE. VI 1) GO TO 222 
202 CONTINUE 
MMM-7 
GO TO 204 

222 ARGV2-V2CL+1) -V2 CL) 

IF CARGV2.NE. 0. 0) U22«CCV11-V2CL))*(U2CL+1)-U2CL))/ARGV2)*U2CL) 
IF CARGV2. EQ. 0.0) U22-U2CL) 

U12-U1 1-U22 
IF CU11.GE.U22) MMM-0 
IF CU11.GE.U22) GO TO 349 
IFCABSCU12) .LE.ALIMIT) MMM-18 
IFCABSCU12) . LE. ALIMIT) GO TO 349 
MCA* 1 

IF (VI ( J+l) . GT. V2 CL) ) GO TO 203 
ARGV3* VI CJ+D-V1CJ) 

IFCARGV3.NE*. 0.0) Ull* C CV2CL) -V1CJ))*CU1CJ*1)-U1CJ))/ ARGV3) *U1 C J) 
IF CARGV3. EQ. 0 . 0) Uli-UlCJ+i) 

U12-U11-U2 CL) 

IF CU11 . GE. U2 CL) ) MMM-72 
IF CU11.GE.U2CD) GO TO 349 
IFCABSCU12) .LE.ALIMIT) MMM-73 
IFCABSCU12). LE.ALIMIT) GO TO 349 
MCA-2 

IF CL . EQ. 1) GO TO 203 

IF (VI (J* 1) . GT. V2 CL- 1 ) ) GO TO 203 

IF CARGV3. NE. 0. 0) U1 1 - C CV2 CL- 1) - VI C J) ) * CU1 C J* 1 ) -U1 C J) ) / CV1 C J* 1 ) - 
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4V1CJ))>*U1CJ> 

IF CARGV3. EQ. 0. 0) UU-U1 CJ-1) 

U12-UU-U2CL-1) 

IF CU11 . GE. U2CL-1) ) MMM-78 
IF CUH . GE. U2 CL-1) ) GO TO 349 
IFCA0SCU12) . LE. ALIMIT) MMM-79 
IFCABSCU12) . LE. AL IMIT) GO TO 349 
MCA-3 

203 IF CABSCU12) .GE. ABSCCOMPAR)) GO TO 205 
C0MPAR-U12 
JCA-J 
LCA-L 

205 CONTINUE 
204 CONTINUE 
199 CONTINUE 
504 CONTINUE 

WRITECLU.505) I , K .MCA , PS 1 1TP CIO , PS 1 2TP CIO , COMPAR , JCA , LCA 
505 FORMAT C ' AT POS ITION' , 13, ' TOOTH PAIR', 12/ 

*' NO CONTACT FOUND MCA', 14,' PS 1 1 , 2 ' , 2F12 . 7/ 

4 ' CLOSEST APPROACH i',F12.7,' BETWEEN PTS.',I3' AND', 133 

UC1CO-U1CJCP3 
VC1CKD-V1CJCPD 
UC2CO-U2CLCP) 

VC2CK3-V2CLCP) 

UVDCP-0.0 

MMM-15 

VELRCI3-TG2/TG1 
GO TO 360 

349 CONTINUE 
UCPCK3-U11 
VCPCO-V11 

350 CONTINUE 
C 

C WRITECLU, 90803 J.U1CJ3 ,V1CJ3 .PSUTPCO ,L,U2CL3 ,V2CL3 ,PSI2TPCO , 

C 4 MMM,U12, COMPAR 

9080 FORMAT C5X, 'ACTUAL' , 15 ,3F13. 7/11X , 15 ,3F13. 7/ 

4 5X, 'CONTACT CODE' , 15 ,5X , 'U12 , COMPAR ', 2F12. 7) 

C 

I PT1 CIO • J 
IPT2CIO-L 
UVDCP-0.0 
NCTP - NCTP *1 

RCP1 CK3 - SORT C CUCP 00**25 ♦ CVCPCO**23 3 
RCP2CK3-SQRT CUCP CK3**2» CC-VCP CO 3 **23 
2CP2CKJ - CC-VCP CK3 3*COSCPS 1 2TP CO-C3.*PI3/2.3 ♦ 
lUCPCK3*SINCPSI2TPCK3-C3.*PI3/2,3 

2CP1 CO * UCPCO*COSCPSI 1TPCO 3 ♦ VCPC0*SINCPSI1TPC03 
WCP1CO - UCP CO*S I N CPS 1 1TPCO 3 - VCP CO*COS CPS 1 1TP CO 3 
WCP2CO - CC-VCPCK3 3*SINCPSI2TP CK3 - C3. *P I 3 /2. 3 - 
1UCPCO*COSCPSI 2TP CK3-C3.*PI3/2.3 
RCCP1CO-SQRT CABSCRCP1 CK3**2-RBC1**23 3 
RCCP2CO-SQRT CABSCRCP2CK3**2-RBC2**233 
IFCK.NE.33 GO TO 359 

IFCK.EQ.33 THBUVCO -ATANCWCP1 CO/2CP1CK33 
ANG1-ATANCUCP CK3 /VCP CK3 3 
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IFCUCPCK3 . LE. 0. 03 ANG1-ATANCABSCUCPCK3 3 /VCP CIO 3 
ANG2-ATANCUCPCK3/CC-VCPCK33) 

'I F CUCP CIO . LE. 0. 03 ANG2-ATAN C ABSCUCP CK3 3 / CC-VCPCK3 3 3 

AN12- ANG1* ANG2 

ANB1-ATAHCRCCP1CK3/RBC13 

AN1B-ANB1-ANG1 

IF CUCP CIO .GT. 0. 03 AN1B-ANB1-ANG1 

AN11-PHI-ANG1 

AN22-ANG2*PHI 

IF CUCPCK3.GE. 0. 03 ANU-PHI »ANG1 
IF CUCPCK3 . GE. 0 . 0) AH22-PHI -AHG2 

RCCN1 -SORT CABSCRBC1**2*RCP1CK3 **2-2. *RBC1*RCP1 CK)*C0S CAN113 3 3 
RCCN2-SQRTCABSCRBC2**2»RCP2CK3**2-2.*RBC2*RCP2CK3*C0SCAN22)33 
PPND-RBC1/C0SCAN1B) 

RPMOTN-PPND*RPMIN/ CC-PPND) 

VELRCI3-RPMIN/RPM0TN 

VEL1-RCP1CK)*RPMIN*2.*PI/12. 

VEL2-RCP2OC3*RPM0TH*2.*PI/12. 

PPP-PPN0-RPC1 

VEL11-VEL1 

VEL22-RCP2CK)*RPM0UT*2.*PI/12. 

SV12-SQRTCABSCVEL1**2*VEL2**2-2.*VEL1*VEL2*C0SCAN12)3) 

SVSCI3-SV12 

SV11 “SORT CABS CVELll**2 + VEL22**2-2. *VEL11*VEL22*G0SCAN123 3 3 
OMEGA1»2.*P1*RPMIN/60. 

0MEGA2-2.*PI*RPM0UT/60. 

SL I D VI “SORT CABSCRCP1 OC)**2-RBCl**2) 3 
SL I DV2-SQRT CABS CRCP2 CIO**2-RBC2**23 3 
SV13-CABSC0MEGA2*SLIDV2-0MEGA1*SLIDV133*5. 

SVR-SVSCI3/SV13 
RVELR-RPMOTN/RPMOUT 
C INTERFERENCE CHECK 
LINF-1 
NNNN-1 

IFCRCP10C3.LT. RBC13 LINF-2 
IF CRCP2CK) . LT. RBC23 LINF-2 
IF CRCP1CK) .LT.RBI13 LINF-2 
IFCRCP2CK) .LT.RBI2) LINF-2 

IF CVCPOO .GT. 0. 03 UVDCP-SQRTC CUCP CK3 -U1 CJCP3 3**2* CVCPOO -VI CJCP3 3* 
1 * 2 ) 

IF CVCPOO . EQ. 0 . 0) UVDCP— 1.0 
I F C VCP CIO . LT. VI C JCP3 3 UVDCP--UVDCP 
PHI0PCI3- CANB1 ♦ ANG1)*57. 29578 

IF CUCPCK3.GT.0.0) PHI OPC I ) -CANB1- ANG13*57 . 29578 
359 CONTINUE 
360 CONTINUE 

UU1MAX-0 . 0 
KKMAX-0 
KKMM-0 
NMAX-0 

IFCRCP1CK3.EQ.0.0.0R.RCP2CIO.EQ.0.03 GO TO 23 
IFCCPSUTPCK). GT.PSULS). OR. CPSI1TPCK3.LT. PSI1LE33 GO TO 23 
XCP1CK3 * WCP1CK) 

XCP2CK3 - WCP2CK3 
YCP1CK3 • 2CP1CK3 - RR01 


I 



193 


YCP2CK)*ZCP2CK)-RR02 

23 CONTINUE 

Q1 - 1.0 
KT - 0.0 
PSIR1T - 0.0 
PSIR2T * 0.0 
DO 35 K « 1,5 
TDCP1CK) « 0.0 
TDCP2CK) - 0.0 
THCP1CK) - 0.0 
THCP2CK) * 0.0 
TDOO - 0.0 
PSIRD1CK) - 0.0 
PSIRD2CK) - 0.0 
HICK) - 0.0 
H2CK) - 0.0 
HDCK) - 0.0 
CDEFLCK) - 0.0 
STIFF CK) - 0.0 
KT-0.0 

TPS CK , I ) *0 . 0 
MM-7 

IFCRCP1CK) .EQ.0. 0. OR. RCP2CK) . EG. 0 . 0) MM-35 
I F C CPSI 1TPCK) . GT. PSI 1LS) . OR. CPS 1 1TP CK) . LT. PS 1 1LE) ) MM-36 
IFCRCPlCK).EQ.0.0.OR. RCP2CK) . EQ. 0 . 0) GO TO 35 
IFCCPSI1TPCK). GT. PS II LS). OR. CPSI1TPCK) .LT.PSI1LE)) GO TO 35 
DO 24 K1 - 1 ,L1 

IFCY1CKD.EQ. YCP1CK). OR.Y1CD.LT. YCP1CK)) GO TO 30 
IFCY1CKD.LT. YCP1CK)) GO TO 31 

24 CONTINUE 

25 DO 26 K2 - 1,L2 

IF CY2CK2) . EQ. YCP2CK) ) GO TO 32 
IF CY2CK2) . LT. YCP2CK)) GO TO 33 

26 CONTINUE 

30 TDCP1CK) - DCP1CK1) 

THCP1CK) - THETC1CK1) 

GO TO 25 

31 CONTINUE 

YINCRM« CYi CK1-1) -YCP1 CK) ) / CY1 CK1-1) -Y1 CK1) ) 

TDCP1 CK)*DCP1 CK1 -1) ♦YI NCRM*CDCP1 CKD-DCP1CK1-D) 
THCP1CK)*THETC1CK1-1) ♦YINCRM*CTHETC1 CKD-THETC1CK1-D) 

GO TO 25 

32 TDCP2CK) - DCP2CK2) 

THCP2CK) - THETC2CK2) 

GO TO 35 

33 CONTINUE 

YINCRM- CY2 CK2-1) -YCP2CK) ) / CY2 CK2-D -Y2 CK2) ) 

TDCP2CK) "DCP2CK2-1) «-YI NCRM* CDCP2 CK2) -DCP2CK2-1) ) 

THCP2 CK) "THETC2 CK2-D ♦ YI NCRM*CTHETC2 CK2) -THETC2 CK2- 1) ) 

35 CONTINUE 

DO 36 K - 1,5 

IFCRCP1CK).EQ.O.O.OR.RCP2CK).EQ.O.O) GO TO 36 
IFCCPSI1TPCK). GT .PSI1LS).0R. CPSI 1TP CK) . LT. PS 1 1LE) ) GO TO 36 
TD CK) - TDCP1CK) ♦ TDCP2CK) 
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Cl * C4.*RCCP1CK)*RCCP2CK))/CCPI*F)*CRCCP1CK)*RCCP2CK))) 

BH • SQRT CC1*C2*Q1 ) 

HICK) » XCP1CK)/C0S CTHCP1 CK) ) 

H2CK) - XCP2CK)/C0S CTHCP2 CK) ) 

ARG3 - C2.*H1CK))/BH 
ARG4 - C2 . *H2 CK) ) /BH 

HDCK) * CC3*CAL0GCARG3) -C4) +C5*CAL0GCARG4) -C6) )*Q1 
CDEFLCK) - TDCK) ♦ HDCK) 

STIFF CK) - 1.0/CDEFLCK) 

KT ■ KT ♦ STIFF CK) 

TPSCK,I)*STIFFCK) 

36 CONTINUE 
CMSCO-KT 

DO 37 K - 1,5 
QTPCK) - 0.0 

IF CKT.NE.0.0) QTPCK)-CSTIFFCK)/KT)*P 

IF CPSI1TPCK).GT.PSI1LS.0R.PSI 1TPCK) . LT. PS 1 1LE) GO TO 37 
Vll - QTP CK)*COS CTHCP1 CK) ) 

T 1 - VI 1* CYCP1 CK) ♦ RROl) 

PSIRD1CK) - CT1/C4.*PI*F1*G1))*C1. / CR I 1**2) - 1 . /CRR01**2)) 

PSIR1T - PSIR1T ♦ PSIRD1CK) 

V22 - QTP CK)*COS CTHCP2 CK) ) 

T2 - V22*CYCP2CK) ♦ RR02) 

PSIRD2CK) - CT2/ C4 . *P I*F2*G2) )*Ci . / CRI 2**2) -1 . / CRR02**2) ) 

PSIR2T - PSIR2T ♦ PSIRD2CK) 

37 CONTINUE 
KT-0 . 0 

DO 40 K - 1,5 

IFCRCP1CK).EQ.O.O.OR. RCP2CK) . EQ. 0 . 0) GO TO 40 
IFCCPSI1TPCK) .GT.PSI1LS).0R. CPS 1 1TP CK) . LT. PS 1 1LE) ) GO TO 40 
THETAQ - ATANCXCP1CK) / CRR01 ♦ YCP1CK))) 

ARG - ABSCTHCP1CK) ♦ THETAQ) 

STIFF CK) - 1 . O/CDEFLCK) 

KT - KT ♦ STIFF CK) 

TPSCK, D-STIFFCK) 

TDCP1CK) - TDCP1CK)*QTPCK) ♦ RCP1 CK) * CPS I R1T-PS I RDi CK) )*COS CARG) 
THETAQ - ATANCXCP2CK)/ CRRQ2+YCP2 CK) ) ) 

ARG - ABS CTHCP2 CK) ♦ THETAQ) 

TDCP2CK) - TDCP2 CK)*QTP CK) ♦ RCP2 CK) *CPS I R2T-PS I RD2 CK) )*COS CARG) 
TDCK) - TDCP1CK) ♦ TDCP2CK) 

BH - SQRT CC1*C2*QTP CK) ) 

ARG3 - C2.*H1CK))/BH 
ARG4 - C2.*H2CK))/BH 

HOCK) - CC3*CAL0GCARG3)-C4) ♦ C5*C AL0GCARG4) -C6) ) *QTP CK) 
CMSCD-KT 

CDEFLCK) - TDCK) ♦ HDCK) 

40 CONTINUE 

RNCPCI) - NCTP 
DO 4000 K-2,5 

IF CPSUTPCK) .GT.PS11LS.0R.PSUTPCK) .LT.PSULE) GO TO 4000 
IF CQTP CK) . NE . 0 . 0) GO TO 4000 
RCP11«SQRTCUC1CK)**2 ♦ VC1CK)**2) 

RCP22-SQRTCUC2CK)**2 ♦ CC-VC2 CK) ) **2) 

TDCP1 CK)*RCP11*CPSIR1T-PSIRD1CK)) 

TDCP2 CK) *RCP22*CPSIR2T-PSIRD2CK)) 
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4000 CONTINUE 

DO 43 K « 1,5 
TPSCK, D-STIFFCK) 

QCK,I) - QTP CK) 

YC1CK,1) - YCP1CK) 

X C 1 C K , I ) - XCP1 CIO 
YC2CK,I) - YCP2CK) 

XC2CK,I) - XCP2 CK) 

RC1 CK , I ) - RCP1CK) 

RC2CK,I) - RCP2CK) 

RCC1CK,I) - RCCP1CK) 

RCC2CK,I) m RCCP2CK) 

TDEFL1CK, I)-TDCP1CK) ♦ HDCK)*DELTA1/ (DELTA 1 ♦ DELTA2) 

TDEFL2CK, I)-TDCP2CK) ♦ HDCK)*DELTA2/ CDELTA1 +DELTA2) 

IFCK.NE.3) GO TO 41 
RESIDLC1,I)«TDEFL1C3, I) 

RESIDLC2,I)-TDEFL2C3,I) 

IFCCVCPC3) .NE. 0.0) . AND- CUCP C3) . LE. 0.0)) THUVP C I ) -ATAN CUCP (3) /VCP (3 
1) ) -THBUVCI ) ♦THPPl 

IF C CVCPC3) . NE. 0. 0) . AND. CUCPC3) . GT. 0.0)) THUVP C ID -ATAN CUCP C3) / VCP C3 
1) ) -THBUVC I ) ♦THPPl 
I F CVCP (3) . EQ. 0 . 0) THUVPCD-0.0 
THUVP C I ) -THUVP C I )*57. 29578 
41 CONTINUE 

IF (IPICK.EQ.1HN.QR.QTPCK).LT.5.) GO TO 43 

WRITECLU ,411) K, STIFF CK) , QTP CK) ,TDEFL1 CK , I) ,TDEFL2CK , I) , 

4 IPT1CK) , PSI1TPCK./ , IPT2CK) , PSI2TPCK) 

411 FORMAT C I6,E13. 7,F10 . 2 , 2E11 .5 ,5X ,2C 16 ,F11 • 7 ,3X) ) 

43 CONTINUE 
TDEF1CI) - TDCP1C3) 

TDEF2CI) - TDCP2C3) 

HDEFCI) - HDC3) 

CDEFCI) - CDEFLC3) 

TPSC3, I ) -STIFF C3) 

IF CGC4 , I) . GT. 1.0. AND. PSI 1EP. EQ. 0) PS 1 1EP-PS 1 1TPC3) 

IF CQC4 , I ) . GT. 1 • 0 • AND. PS 1 2EP . EQ. 0) PS 1 2EP-PS 1 2TP C3) 

GO TO 45 

44 TPSC3, I ) - 0.0 

45 PSI1TPC1) - PSI1L - FLOAT C I )*DELTA1 
PSI2TPC1) - PSI2L ♦ FLOAT C I )*DELTA2 
HZP-0.0 

IF CRC1 (3, I). EQ. 0.0. OR. RC2C3, I ) . EQ. 0 . 0) GO TO 4500 

SRCN-1 . /RCCN1+1 . /RCCN2 

HZN-0 . 504KSQRT C CQ C3 , 1) *SRCN) / CF*C2) ) 

SHZN-HZN*SVS ( I )*0 . 2 
SRCC-1./RCC1C3,I)*1./RCC2C3,I) 

HZP-0 . 564*SQRTC CGC3, 1 )*SRCC) / CF*C2) ) 

SHZI -HZP*SV13*0 . 2 

IF CU.EQ.2) SHZI -HZP*SV12*0 . 2 

RBCN«RBC1*VELRCI) 

RCC2C3, I) -SQRTCRC2C3, I ) **2-RBCN**2) 

4500 CONTINUE 
48 CONTINUE 

WRITECLU, 9989) 

9989 FORMAT C 'COMPLETED PART2') 
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IF CU.EQ.2) GO TO 9990 

ANGC15-PSUSL 

ANGC25-PSI1EP 

ANGC35-PSI2SL 

ANGC45 “PSI2EP 

GO TO 9991 

9990 ANGC55-PSUSL 
ANGC65-PSUEP 
ANGC75-PSI2SL 
ANGC85-PSI2EP 

9991 GO TO INSTN 
END 

C 

PROGRAM PART3.5 
C 

COMMON /C7/BUF7 C708) 

C 

DIMENSION IDCBC144) , INAMEC3) 

DATA I NAME/2HEX , 2HDA ,2HTA/ ,ICODE/l/ 

C 

CALL OPENCIDCB, IER, I NAME, 1 , -99,36) 

IF CIER.GT.O) GO TO 13 
C 

9 WR ITEC1 , 105 IER , I CODE 

10 FORMAT C 'FMP ERROR AT ICODE- ' , 1 2 , 7 PROGRAM ABORTED') 

GO TO 50 

C 

13 I CODE - I CODE* 1 

CALL WRITFCIDCB, IER, BUF7, 1416) 

IF CIER.LT.O) GO TO 9 
C 

WRITEC1 ,305 INAME 

30 FORMAT C 'DATA FROM SEGMT WAS WRITTEN TO FILE ',3A25 
C 

50 CALL CLOSECIDCB, IER) 

END 

C 

C 

BLOCK DATA 

COMMON/Ci/BUFl Cl 200) 

COMMON /C2/BUF2C 165 
C0MM0N/C3/8UF3C17) 

COMMON/ C4/BUF4 C40 0) 

COMMON /C5/BUF5 C506) 

C0MM0N/C6/L1 ,L2, 11 > IRIS, IR2E , INSTN 
C0MM0N/C7/BUF7C708) 

C 

END 



<830610. 1607) 


197 


C 

FTN4.L 


PROGRAM EPCYC 


C*****TH I S PROGRAM ASSEMBLES THE SUN/PLANET AND PLAHET/RING STIFFNESS FUNCT 
C 


C0MM0N/C8/RNCPE (50) ,PSI 1EC50) , PS 1 2E (50 ) , QE C5 , 50 ) ,TPSE(5 50) 
4CMSEC50) ,ANGEC8) 

COMMON /C9/RNCP I (50),PSI1I (50) , PS 1 21 (50 ) , 01 (5 , 50 ) ,TPSIC5,50) 
tCMSI C50) ,ANGI (8) 

COMMON/CIO/ PS IS (50 ,3) , KGEC50 ,3) , PS I P (50 ,3) , KGI (50,3) , 
l REPE(3) ,REPI (3) ,DUMMY(10) 

COMMON/C11/VRATEX (50,3) ,VRATIN(50 ,3) 

COMMON/ Cl 2/TPE (50 ,3) , TP I (50 ,3) 

DIMENSION ITIME(5) .KGDATAC3) ,KEXDAT (3) ,KINDATC3) , ITDATA(3) 
DIMENSION I SHARE (3) , PS 1 1 EX (50) , PS 1 2EX (50) , PS 1 1 1 N (50) ,PSI2IN(50) 
REAL KGE.KGI 

DATA KEXDAT/2HEX,2HDA,2HTA/, KINDAT/2HIN,2HDA,2HTA/ 

DATA KGDATA/2HKG.2HDA.2HTA/, ITDATA/2HST.2HDA ,2HTA/ 

DATA ISHARE/2HSH.2HAR.2HE / 

DATA TGS,TGP,TGR/14. ,28. ,70. /, PI/3.1415927/ 


WRITE(l.l) 

1 FORMAT ( 'LU FOR OUPUT DEVICE?') 

READC1,*) LU 

CALL EXEC(11 , ITIME) 

WRITE(LU,2) I TIME (5) , I TIME (4) ,ITIME(3),ITIME(2),ITIME(1) 

2 FORMAT C/ 'EPIC2 EXEC START AT ' , 15, 4(' r ' , 12)/) 

CALL TRANRCKEXDAT.8) 

CALL TRANRCKINDAT.9) 

CALL TRANRCKGDATA.IO) 

CALL TRANRCITDATA.il) 

CALL TRANRCISHARE.12) 

DO 6 1-1,50 

PSIIEX(I)-PSIIECI) - PI/2. 

PSI2EXCI)-(3.*PI/2.) - PSI2ECI) 

PSIlINCI)-(2.*PI/360.)*(-PSIlI (I)) 

PSI2INCI)-C2.*PI/360.)*C-PSI2I CD) 

6 CONTINUE 
WRITE (1,11) 

11 FORMAT C 'LIST EXDATA AND INDATA? CY/N1 ') 

READC1 , 12) IPICK 

12 FORMAT CA1) 

IF (IPICK. EQ.1HN) GO TO 14 
WRITECLU.13) ANGE.ANGI , 

* (I .PSIIECI) , PS 1 2E ( I ) , TPSE (2 , I) , TPSE (3 , I ) , CMSE C I ) , RNCPE C I ) , 

* i, ps men, ps I2K1) , tpsi (2, n ,tpsi (3, d ,cmsi ci ) ,rncpi cd , 1-1 ,50) 

13 FORMAT C ' ANGE ' ,8F13. 7 / ' ANGI ',8F13.7//50(2CI5,2F9.7,3E11.5,F9.6)/)) 

14 WR ITEC1 , 15) 

15 FORMATC/ 'OPTI ONS * 1-KGE 2-GPSE 3-KGI 4-GPSI', 

*' 5-RELIST 6-NO CHANGE'/ 

* 'ENTER CHANGES t**INCLUDE DATA POINTS FOR OPTIONS 1-4**) > ') 

READC1 ,*) ICHNG.NUM 
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GO TO 0.60,165,170,175,6,19), 1CHNG 

160 WRITEC1 , 161) CMSECHUM) .RHCPECHUM) 

161 FORMATC 'CURRENT VALUES :' ,2E15 . 7 ,/ 'ENTER HEW VALUES') 

READ Cl , *) CMSECHUM) .RHCPECHUM) 

GO TO 180 

165 WRITEC1 ,161) TPSEC2.HUM) .TPSEC3.HUM) 

READ Cl ,*) TPSEC2.HUM) ,TPSEC3,HUM) 

GO TO 180 

170 WRITEC1 ,161) CMSI CHUM), RHCPI CHUM) 

READC1 ,*) CMSI CHUM), RHCPI CHUM) 

GO TO 180 

175 WRITEC1.161) TPSI C2.HUM) ,TPSI C3.HUM) 

READC1 ,*) TPS I C2.HUM) ,TPSI C3.HUM) 

180 WRITEC1 , 181) HUM.TPSEC2.HUM) ,TPSE C3 , HUM) , CMSE CHUM) .RHCPECHUM) , 

* TPSI C2.HUM) , TPS I C3, HUM) , CMS I CHUM) , RHCPI CHUM) 

181 FORMAT C 'HEW VALUES , 1 4 , 2C3F1 0 . 1 , F10 . 7 , 4X) ) 

GO TO 14 

% 

/ 

19 DO 20 1-1,50 

IF CQEC4.D.GT.1.0) GO TO 21 

20 COHTIHUE 

21 IEPE-I 
ITPE-50-IEPE 
DO 22 1-1,50 

IF CQI C4 , I ) . GT. 1.0) GO TO 23 

22 COHTIHUE 

23 IEPI-I 
ITPI-50-IEPI 
WRITEC1 ,24) IEPE.IEPI 

24 FORMATC' IEPE, IEPI',215,' CHAHGE7 CY/H3') 

READC1 ,12) I PICK 

IF CIPICK.EQ.1HH) GO TO 28 
WRITEC1 ,25) 

25 FORMATC 'EHTER HEW VALUES FOR IEPE AHD IEPI') 

READC1 ,*) IEPE, IEPI 

WRITEC1 ,26) IEPE, IEPI 

26 FORMAT C 'HEW VALUES FOR IEPE 4IEPI',2I6) 

WR ITECLU ,27) IEPE.IEPI 

27 FORMATC'IEPE, IEPI', 215) 

C 

28 PRS -AHGIC1) 

PRE -AHGIC2) 

PRSP-AHGI C5) 

PREP-AHGI C6) 

PR -2*P I - AHGEC3) 

RATE- CPRSP-PREP) / CPRS-PRE) 

PRP -PREP ♦* RATE*CPR-PRE) 

PRPP-PRP - PI/2. 

C 

DO 30 1-1,50 

IF CPRPP. GT. PSI1IHCD) GO TO 31 

30 COHTIHUE 

31 HALF- CPS II INC I ~1) - PSUINCI))*0.5 ♦ PSUIHCI) 

IF CPRPP. GT. HALF) I-I-l 



WRITE (1,32) PRS.PRE.PRSP, PREP, PR, RATE, PRP.PRPP, I 

32 FORMATC'PRS, PRE, PRSP, PREP, PR, RATE, PRP, PRPP, \- , 

* 8F11. 7, 15) 

33 WRITEC1 ,34) 

34 FORMAT C 'WHICH SUN/PLANET/RING TO BE CONSIDERED? 

* '[HIT m A m TO SKIP!') 

READC1 ,») I SPR 

IF (ISPR.GT.3) GO TO 36 
REPECISPR)-FL0ATC1EPE) 

REPI (ISPR)-FLOAT(IEPI) 

DO 35 J-1,50 

PSISC J, I SPR)»PSI 1EX(1) - PSI1EXCJ) 

PSIPCJ, ISPR)-PSIlIN(l) - PS 1 1 INC J) 

K-J 

IF CK.GT. IEPE-1) K-K- IEPE*1 
KGECJ, ISPR)-CMSECK) 

IF CCMSECK) .LT. 2.5E5) KGECJ, ISPR)-5.E5 
L- I ♦ J-l 

IF CL.GT. IEPI-1) L-L-IEPI *1 
KGI CJ,ISPR)-CMSICL) 

IF CCMSI CL) .LT.2.5E5) KGI CJ , ISPR) «5. E5 
VRATEXCJ, ISPR)-RHCPECJ) 

VRATINCJ, ISPR)-RNCPI CL) 

35 CONTINUE 

36 NEWTH-0 

00 37 J-1,50 
TPECJ,2)-0. 

TPECJ,3)-TPSEC3, J) 

TPI CJ,2)«0. 0 
L- I +J-1 

IF CL.GT. IEPI-1) NEWTH-1 
IF CL.GT. IEPI-1) L-L-IEPI+1 
TPI CJ,3)-TPSI C3,L) 

IF CNEWTH.EQ.l) TPI CJ,3)-TPSI C2,L) 

37 CONTINUE 

WRITEC1 ,40) 

40 FORMAT C' ANY FURTHER REVISIONS? [Y/HI ') 

READC1 ,12) IP1CK 
IF CIPICK.EQ.1HY) GO TO 33 

42 WRITE Cl ,43) 

43 FORMAT C 'LIST DATA FILE KGDATA? CY/N] ') 

READC1 , 12) I PICK 

IF CIPICK.EQ.1HN) GO TO 46 
WRITEC1.44) 

44 FORMATC'LU NUMBER OF OUTPUT DEVICE?') 

READC1 ,») LU 

WRITECLU.45) IEPE, IEPI , CJ, CPSISC J ,K) .KGECJ ,K) , K-l ,3) , 

J, CPSIPCJ.L) ,KGI C J ,L) ,L-1,3) , J-l ,50) 

45 FORMATC ' IEPE , IEPI ' ,215/5002 ,3CF10. 6.F10 . 1),I6,3CF10.6,F10.1)/)) 
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46 WR I TE ( 1 , 47) 

47 FORMAT C 'L I ST DATA FILE STDATA? CY/NI _') 

READ ( 1,12) IPICK 

IF CIPICK. EQ. 1HN) GO TO 50 
WRITEC1 ,44) 

READCi ,*) LU 

WR I TE (LU , 49) C J , CVRATEX C J , K) , K = 1 , 3) , J , CVRAT I H ( J , L) ,L=1 ,3) , J=1 ,50) 

49 FORMAT (50C2CI3,3F10.4,5X)/)) 

50 WR I TE Cl ,51) 

51 FORMAT C 'L I ST DATA FILE SHARE? CY/NI _') 

READCI, 12) IPICK 

IF (IPICK. EQ.1HH) GO TO 56 
WR ITE Cl , 44) 

READCI,*) LU 

WRITE CLU ,55) Cl .TPECI ,2) ,TPECI ,3) ,KGE(I ,1) , 

4 I ,TPI Cl ,2) ,TPI Cl ,3) ,KGI Cl ,1) , 1=1 ,50) 

55 FORMAT (50(15, 3F 10.1, 14, 3F10.1/)) 

56 WRITEC1 ,57) 

57 FORMATC'WRITE TO FILE KEXDAT? CY/NI _') 

READCI, 12) IPICK 

IF CIPICK.EQ. 1HY) CALL TRANWCKEXDAT ,8) 

WRITEC1 ,58) 

58 FORMAT C 'WRITE TO FILE KINDAT? CY/NI _') 

READCI, 12) IPICK 

IF (IPICK. EQ.1HY) CALL TRAHWCKINDAT ,9) 

WR ITE Cl ,59) 

59 FORMAT C 'WRITE TO FILE KGDATA? CY/NI _') 

READCI, 12) IPICK 

IF CIPICK.EQ. 1HY) CALL TRANWCKGDATA ,10) 

WR ITEC1 ,61) 

61 FORMAT C 'WRITE TO FILE ITDATA? CY/NI _') 

READCI, 12) IPICK 

IF CIPICK.EQ. 1HY) CALL TRANWC ITDATA , 11) 

WRITE Cl ,65) 

65 FORMAT C 'WRITE TO FILE SHARE? CY/NI _') 

READCI, 12) IPICK 

IF CIPICK.EQ. 1HY) CALL TRANWCISHARE ,12) 


END 
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C 

c 

c 

SUBROUTINE TRANRCINAME, IB) 

COMMON/C8/BUF8C708) 

COMMON/C9/BUF9C708) 

CQMMON/C10/BUF10C616) 

COMMON/ Cl 1/BUF 1 1 C300) 

COMMON/C12/BUF12C3003 

C 

DIMENSION IDCB Cl 44 3 , INAMEC33 
DATA I CODE/1/ 

C 

CALL OPENCIDCB, IER, INAME, 0,-99 ,36) 

IF CIER.GT.O) GO TO 13 
C 

9 WRITEC1.10) IER, ICODE, INAME 

10 FORMATC 'FMP ERROR .',15,' AT ICODE-', 12,' ON FILE ',3A2/ 

* 'PROGRAM ABORTED') 

CALL EXEC (6) 

C 

13 I CODE- 1 CODE* 1 

IF CIB.EQ.8) CALL READF C IDCB , IER , 8UF8) 

IF C IB. EQ. 93 CALL READF C IDCB , I ER , 8UF9) 

IF CIB.EQ.10) CALL READFCIDCB , IER , BUF1 03 
IF CIB.EQ.113 CALL READFCIDCB, IER,BUF113 
IF CIB.EQ. 123 CALL READFCIDCB , I ER ,BUF123 
IF C IER. LT. 03 GO TO 9 
C 

WRITEC1 ,303 INAME 

30 FORMAT C 'DATA FROM ',3A2,' WAS READ') 

50 CALL CLOSE C IDCB, IER) 

RETURN 

END 
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C 

C 

SUBROUTINE TRANWdNAME, IB) 

COMMON /C8/BUF8 (708) 

COMMON /C9/BUF9C7 08) 

COMMON/ Cl O/BUFi 0(616) 

COMMON/ Cl 1/BUF11 C300) 

COMMON /C12/BUF 12 (300) 

DIMENSION I DCB (144) , I NAME (3) 

DATA I CODE/ 1/ 

C 

CALL OPEN ( I DCB, I ER, I NAME, 0,-99 ,36) 

IF (IER.GT.O) GO TO 13 
C 

9 WRITE(1 , 10) IER, ICODE, INAME 

10 FORMAT ( 'FMP ERROR «',I5,' AT ICODE»',I2,' ON FILE ' ,3A2/ 

* 'PROGRAM ABORTED') 

CALL EXECC6) 

C 

13 ICODE- ICODE+1 

IF CIB.EQ.8) CALL WRITFCIDCB, IER, BUF8, 1416) 

IF CIB.EQ.9) CALL WR ITF C IDCB , I ER , BUF9 , 1416) 

IF (IB.EQ.10) CALL WRITF CIDCB , IER ,BUF10 , 1212) 

IF C IB. EQ. 11) CALL WRITFC I DCB , I ER , BUF11 , 600) 

IF (IB. EG. 12) CALL WRITF( IDCB , I ER , BUF12 , 6)0) 

IF (IER.LT.O) GO TO 9 
C 

WRITE(1 ,30) INAME 

30 FORMAT ( 'DATA FROM EPIC2 WAS WRITTEN TO FILE ' ,3A2) 

50 CALL CLOSEdDCB, IER) 

RETURN 

END 

C 

C 

C 

BLOCK DATA 
C0MM0N/C8/BUF8(708) 

COMM0N/C9/BUF9(708) 

COMMON/CIO/BUFI 0(616) 

COMMON/C11/BUF11 (300) 

COMMON /C12/BUF 12 (300) 

C 

END 
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C <830611. 1140> 

FTN4.L 

PROGRAM INTEG 
C 

C*****THIS PROGRAM INTEGRATES DIFFERENTIAL EQUATIONS OF MOTION FOR A NINE 
C*****D.O.F. PGT USING A 4th ORDER RUNGS KUTTA TECHNIQUE 
C 

COMMON/C1 0 /PS I E C50 , 3) , KGE <50,30 , PS I I C50 , 3) , KG I C50 , 3) , REPE <35 , 

* REPI<33,RBCS,RBCP,RBCR,T0UT,ANGLE<63 

COMMON/C11/VRE<50 ,3) ,VRI C50 ,3) 

COMMON/C13/XI <183 ,DXI <183 ,NE,NP,NRK, IP,LPP, ISTORE, JEP.NCT 
COMMON /Cl 4 /TIME <40 03 .RESULT <15,4003 , ENDPT 
C 

DIMENSION IEPEC35 ,PSIEPE<33 , I EP I <33 , PS I EP I (3) ,PHI <33 .ALPHA (3) 
DIMENSION PSPP<33 , PSPP0<33 , PSPPDD <33 , KGPE <33 , KGP I <33 , TRE <33 , TR I <33 
DIMENSION CGPEC35 ,CGPI (33 ,GPTFE<33 ,GPTFI <33 , ITIMEC53 ,DFE<33 ,DFI <33 
DIMENSION PS I AEC3) , PS I A I <33 , RBCPP <33 , RBCRP (33 , KDAT<33 , IDATC3) 
DIMENSION CRMEC33 ,CRMI <33 , I NAME <33 

REAL M,UD, JS, JP , JC, JR, JL,KDS,KLS,KG,LDS,LLS ,KEQ,KSUN,MSUN 
REAL KGE.KGI ,KGPE,KGPI 

DATA PI/3.1415927/, INAME/2HTR,2HAN,2HW / 

DATA N1 ,N2/1 ,2/ , KDAT/2HKG,2HDA,2HTA/ , I DAT/2HST, 2HDA ,2HTA/ 

Cxxxxx 

DATA DP, PHID/5. 0000000,22.5/, DELS , DELR/2*. 01 / 

DATA ES,EP,ER/3*30.E6/, PRS , PRP ,PRR/3*. 285/ 

DATA GAMAS, GAMAP .GAMAR/3*. 288/, 2ETAK/.050/ 

DATA FWS ,FWP ,FWR/3*1 . 0/ , RD ,RL/1 . 5 , 1 . 5/ , 2ETAS ,2ETAG/ . 005 1000/ 
DATA TGS,TGP,TGR/25. ,24. ,73./, TIN/4500.0/ 

C 

WR ITE <1 , 13 

1 FORMAT < 'ENTER LU FOR OUTPUT DEVICE'3 
READ<1,*3 LU 

WRITE<1 ,33 

3 FORMAT < 'PRINT INTERMEDIATE RESULTS? CY/N3'3 
READ<1 ,4) I WRIT 

4 FORMAT <A1 3 

CALL EXEC<11 , ITIME3 

WRITE<LU,23 ITIME<53 , ITIME<43 , ITIME<33 , ITIME<23 , ITIME<13 

2 FORMAT < 'FINAB EXEC START AT' , 15 , 4< ' , ' , 1 23 3 
C 

CALL TRANR<KDAT,103 
CALL TRANR<IDAT,113 
C 

6 PHIR-PHID*PI/180. 

PDS-TGS/DP 

PDP-TGP/DP 

PDR-TGR/DP 

RPCS-0.5*PDS 

RPCP»0 . 5*PDP 

RPCR-0.5*PDR 

RC-RPCS+RPCP 

CP-PI/DP 

BP-CP*COS<PHIR3 

RBCS-RPCS*COS<PHIR3 

RBCP»RPCP*COSCPHIR3 



ooooooooooooooo 
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RBCR-RPCR*COSCPHIR) 

PITCHE*2.*Pl/TGS- 
PITCHI*2.*PI/TGP 
DO 7 1*1,3 

IEPECI) -IFIXCREPECI)) 

IEPICI) -IFIXCREPICD) 

PSIEPECD-PSIECIEPECI)) 

PSIEP1 CI)-PSI 1 CIEP1 Cl)) 

PHICI) -PSIEPECI)*CI-l)/3. 

ALPHA ( I ) -P I - PH1R - CI-l)«2.*PI/3. 

7 CONTINUE 
WRITE Cl , 10) 

10 FORMAT C' ENTER VALUE FOR KSUN , MSUN, CSUN AND INPUT RPM') 
READC1 ,*) KSUN, MSUN, CSUN, RPM IN 
C 

C IFCJS.EQ.O.) JS«.5*GAMAS*PI*FWS*RPCS**4/386. 

I F C JP . EQ . 0 . ) JP- . 5*GAMAP*P I *FWP*RPCP**4/386 . 

IFCJR.EQ.O.) JR»3.*JP ♦ JP*C386. / C CRPCP**4) *CRPCR**2) ) ) 
IFCJD.EQ. 0.0) JD * 50.*JR 
IFCJL.EQ.0.0) JL * 50.*JR 
IFCLDS.EQ. 0.0) LDS - 6. 

IFCLLS.EQ.0.0) LLS « 6. 

CDS * 30000000. /C2.*C1. ♦ .285)) 

GLS - 30000000. /<2.*C1. * .285)) 

RL - RD * SORT CTGR/TGS) 

KDS • CPI*CC2.*RD)**4)*GDS)/C32.*LDS) 

KLS - CP I*C C2. *RL)**4)*GLS) / (32. *LLS) 

CDS - C2 . *ZETAS*SQRTCKDS) ) /SORT CCJD*JS)/ C JD*JS) ) 

CLS - C2.*ZETAS*SQRTCKLS))/SQRTCCJL*JR)/CJL*JR)) 

CSUN- 2.*ZETAK*SQRTCKSUN*MSUN) 

MSUN-JS/ CRP8S**2) 

JD - 5 . 

JS - .04 

MSUN - .015 

JP - . 033 

JR - 2. 

JL - 5. 

KDS - 8.85E5 
KLS • 8.85E5 
CDS - 0.85 
CLS - 3.5 
CSUN • .04 

C 
C 

C*****SET UP EQUIVALENT GEAR SYSTEM 
C 

RVALU • TGR/CTGR-TGS) 

RPMIN - RVALU*RPMIN 
RPMOUT • CTGS/TGR)*RPMIN 
TOUT - CTGR/TGS)*TIN 
C 

DOMGAD • 2.*PI*CRPMIN/60.) 

DOMGAS • DOMGAD 

DOMGAP * CTGS/TGP)*DOMGAS 
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DOMGAR - CTGS/TGR)*DOMGAS 
DOMGAL • DOMGAR 
C 

CYCLE * 2.*PI/TGS 
PERIOD ■ CYCLE/DOMGAD 
DT -0.0 
C 


WRITEC1 , 20) PERIOD 

20 FORMATC 'PER I OD OF PITCH CYCLE » ' ,F11. 7 , ' SECONDS'/ 

* 'ENTER NUMBER OF INTEGRATION CYCLES AND STEPS PER CYCLE') 
READCl ,*) NCTR.STEP 

DDT« PERIOD/ STEP 
WR ITE Cl , 21) DDT 

21 FORMATC 'TIME STEP ' , F10 . 7/ 'ENTER ADDITIONAL PITCH', 

* ' CYCLES AND HOW OFTEN TO SAVE RESULTS') 

READCl,*) LSAVE, JSAVE 

NCT-NCTR+LSAVE 

WRITECLU.22) NCT, PERIOD, DDT, JSAVE 

22 FORMATC ' INTEG CYCLES 14 , ' PERIOD i ' ,F9. 7 , ' TIME STEP,',F9.7, 

* ' EVERY', I4'th CYCLE SAVED') 

C 

CALL POSIT CLU,KSUN, ALPHA, TGS, TGR) 

C 

DPSID - TIN/KDS 
DPSIS - 0.0 
DPSIR - ANGLEC1) 

DPSI1 - ANGLE C2) 

DPSI2 - ANGLE C3) 

DPS 13 - ANGLEC4) 

DPSIL • DPSIR - TOUT/KLS 
C 

DPSIDD • DOMGAD 
DPSISD » DOMGAS 
DPS I ID - DOMGAP 
DPS 1 2D - DOMGAP 
DPSI3D - DOMGAP 
DPSIRD • DOMGAR 
DPSILD - DOMGAL 


WR ITECLU ,5006) TGS , TGP , TGR , DP , PH I D , 

* RPCS,RPCP,RPCR,RC,RBCS,RBCP,RBCR 

5006 FORMATC 'TGS, TGP, TGR ',3F5.1,' Pd',F7.3,' PHI',F5.1/ 

* 'RPCS,RPCP,RPCR,RC',4F14.7/'RBCS,RBCP,RBCR ' , 4F14 . 7) 
WRITECLU,5001) JO, JS.MSUN, JP, JR, JL , KDS,KLS,KSUN, CDS , CLS , CSUN 

* PSIEPE.PSIEPI , IEPE, IEPI , RPMIN.RPMOUT, TIN, TOUT 
5001 FORMAT C ' JD , JS ,MS, JP, JR, JL' ,6F10 . 6/ 

* 'KDS , KLS , KSUN '.3F11.1/ 

* 'CDS, CLS, CSUN ' ,3F11 . 7/ 

* 'PSIEPEi ,PSIEPIi ' ,6F10 . 7/ 

' ,315 ,5X ,315/ 

' ,5F10 . 3) 

WR ITECLU, 5002) DPS I D, DPSIS, DPS 1 1 , DPS 1 2, DPS 1 3, DPSIR, DPSIL, 

5002 4 FORMATf/»Tut-rTA.° P f 1 00 > DPSI SD > DPS l ID , DPS 1 2D , DPS 1 3D , DPS I RD , DPS I LD 
2 FORMATC/ ^INITIAL POSITIONS AND VELOCITIESi DRIVER, SUN, PLANETS', 
Cl,2,t3), RING, ANO LOAD ' /7F11 . 7/7F11 . 5// ) 


' IEPEl , IEPI 1 
'RPMI ,RPMO,TI ,TO 
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C 

C 

PSDP » DPSID 
PSSP ■ DPSIS 
XS » ANGLE C5) 

YS ■ ANGLE (6) 

PSPPC1) ■ DPS 1 1 
PSPPC2) * DPS 1 2 
PSPPC3) * DPSI3 
PSRP - DPSIR 
PSLP - DPSIL 
C 

PSDPD - 0. 

PSSPD - 0. 

PSPPDC1) » 0. 

PSPPDC2) - 0. 

PSPPDC3) * 0. 

PSRPD » 0. 

PSLPD - 0. 

C 

C 

C 

HP * 0 
NRK - 1 
J ■ 0 
LC - 0 
LP - 0 

C TSP - 0.0 

C TEP - TTOTAL 

C PRI - DDT 

C PT - TSP 

IP ■ 0 
LPP » 0 
C ILP - 0 

I STORE - 0 
C DELTAT - DDT 

SSTEP-O. 

JWRIT-0 
NTH-0 
NURIT-0 
I SAVE” JSAVE 
INDEX-1 

EXTRA-PITCHE/STEP 

C 

C 

C 

275 ARGE-DPSIS/PITCHE 
NC-IFIXCARGE) ♦ 1 
IF CNC.GT.NCT) GO TO 5060 
NC-IFIXCARGE ♦ EXTRA) ♦ 1 
C 

DO 295 J-1,3 

PSIAECJ)- CARGE-FLOATCIFIXCARGE) ))*PSIEPE( J) ♦ PHICJ) 

IF (PSIAECJ) .GT.PSIEPECJ)) PSIAECJ)-PSI AECJ) - PSIEPE(J) 
C 
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DO 280 1 *2 , IEPECJ) 

IF CPSIAECJ).LE.PSIECI,J)) GO TO 285 
280 CONTINUE 

285 KGPECJ)-KGECI-1,J) ♦ CKGECI , J) -KGECI -1 , J) )*CPSI AEC J) -PSI ECI -1 , jj j / 

* CPSIECI ,J)-PSIE(I-i’j>) 
IF CPSIAECJ) .GT.PSIECIEPECJ) ,J)) KGPECJ)»KGECIEPECJ)*1,J) 

IF CKGPEC J) . LT. 0. ) WRITEC1.286) J, PSIAECJ) ,KGPECJ) 

288 FORMAT C'EX>0. ',I3,F10.7,F10.1) 

CGPE C J) - C2. *ZETAG*SQRT CKGPE C J) ) ) /SORT C CRBCS*«2) / js* CRBCP**2) / jp j 
TRECJ) »VREC 1-1 , J) ♦ CVRECI , J) -VREC I -1 , J) )* CPS I AE C J) -PS I E C I -1 , J) ) / 

* CPSIECI , J)-PSIECT-1 , J)) 
IF CPSIAE.CJ) .GT.PSIECIEPECJ) , J)) TRECJ)-VRECIEPECJ)*1, J) 

C 

PS I A I CJ)-PSIAECJ)*TGS/TGP 

IF CPSIAICJ).GT.PSIEPICJ)) PSIAI CJ)-PSIAI CJ) - PSIEPICJ) 

C 

DO 290 I-2.IEPICJ) 

IF CPSIAICJ).LE.PSIICI,J)) GO TO 291 

290 CONTINUE 

291 KGPICJ)-KGI CI-l.J) ♦ CKGI C I , J) -KGI C I -1 , J) )»CPSI A I C J) -PSI I C I -1 , J) ) / 

* CPSIICI,J)-PSIICI-1,J)) 
IF CPSIAI CJ).GT.PSI I CIEPI CJ) , J)) KGPI CJ)-KGI CIEPI CJ)-i,J) 

IF CICGP I C J) . LT 0.) WRITEC1 ,292) J, PSIAECJ) ,PSIAI CJ) , KGPI CJ) 

292 FORMATC' IN. < 0 . ' , I3.2F10 . 7 , F10 . 1) 

CGP I C J) - C2. *ZETAG*SQRT CKGP I C J) ) ) /SORT C CRBCS**2) / JP*CRBCR»»2) / JP) 
TRI CJ)»VRI CI-l.J) ♦ CVRI Cl , J) -VRI C I -1 , J) ) HCPS I A I C J) -PSI I C I -1 , J) ) / 

4 CPSIICI,J)-PSIICI-1,J)) 

IF CPSIAICJ).GT.PSIICIEPICJ) ,J)) TRI CJ)-VRI CIEPI CJ)+1,J) 

C TRECJ)-TGP/TGS 

C TRICJ)-TGR/TGP 

295 CONTINUE 

296 CONTINUE 
C 

C 

C**»**GEAR PAIR TRANSMITTED FORCE, EXTERNAL AND INTERNAL*»s»»»sk»»h»«b»* 
C 

CMFE-O. 

CMFI-O. 

FX-O.. 

FY-O. 

TOUT -0. 

TORQUE-O. 

DO 300 1-1,3 
RBCPPCI) -RBCS*TRE Cl) 

CRMECI) -RBCS*PSSP - RBCPPCI)*PSPPCI) 

IF CCRMECD.LT. 0.0) GO TO 302 

301 GPTFEC I ) -CGPECI)*CRBCS*CPSSPD*DOMGAS) - 

* CRBCPPC I )*PSPPDC I ) ♦ RBCP*DOMGAP) ♦ 

* XSD*COS CALPHACI)) ♦ YSD*S I NC ALPHA C I ) ) ) ♦ 

* KGPEC1)*CRBCS*CPSSP*DT*D0MGAS) - 

4 CRBCPP C I )*PSPP Cl) ♦ RBCP*DT*DOMGAP) ♦ 

* XSXCOSCALPHACI)) ♦ YS*S INCALPHA C I ) ) ) 

GO TO 305 

302 IF CABSCCRMECI)) .GT. DELS) GO TO 303 
GPTFECD-0.0 
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GO TO 305 

303 GPTFECD-CGPECI )*CRBCS*CPSSPD»DOMGAS) - 

4 CRBCPPCI)*PSPPDCI) + RBCP*DOMGAP) ♦ 

4 XSD*COSCALPHA C I) ) ♦ YSD*S I N < ALPHA C I ) ) ) ♦ 

4 KGPECI)*CRBCS*CPSSP»DT*DOMGAS) - 

t CRBCPPCI)*PSPPCI) ♦ RBCP*DT*DGMGAP) ♦ DELS 

4 XS*COS (ALPHA CIO) ♦ YS*S I H C ALPHA C I ) ) ) 

305 CMFE-CMFE*GPTFECD 

FX-FX ♦ GPTFE C I )*COS(ALPHAC I ) - PI) 

FY-FY ♦ GPTFE(I)*SINCALPHACI) - PI) 

C 

RBCRP C I ) -RBCP*TR 1(1) 

CRMICI) -RBCP*PSPPCD - RBCRP Cl) *PSRP 
IF (CRMICI).LT. 0.0) GO TO 307 

306 GPTFI CD-CGPI C I)*CRBCRPCI)*PSRPD ♦ R8CR*D0MGAR - 

4 RBCP*CPSPPD ( I ) ♦DOMGAP) ) ♦ 

4 KGPI CI)*CRBCRPCI)*PSRP ♦ RBCR*DT*DOMGAR - 

4 RBCP*(PSPP C I ) *DT*DOMGAP) ) 

GO TO 310 

307 IF CABS (CRM I Cl) ) .GT. DELR) GO TO 308 
GPTFI Cl) -0.0 

GO TO 310 

308 GPTFI CD-CGPI CI)*CRBCRPCD*PSRPD ♦ RBCR*DOMGAR - 

4 RBCP*CPSPPDC I ) + DOMGAP) ) ♦ 

4 KGPI C I)*(RBCRPCD*PSRP ♦ RBCR*DT*DOMGAR - 

4 RBCP*CPSPPC I ) *DT*DOMGAP) - DELR) 

310 CMFI -CMFI +GPTFI CD 

TOUT -TOUT ♦ TIN*TRECI)*TRI CD/3. 

TORQUE-TORQUE ♦ GPTFI CD*RBCRPCI) 

300 CONTINUE 
C 

C*****THE EQUATIONS OF MOTION******************************************* 
C 

c 

PSDPDD- C-CDS*C CPSDPD*DOMGAD) - CPSSPD+DOMGAS) ) 

4 -KDS*C CPSOP.*DT*OOMGAD) - CPSSP*DT*DOMGAS) ) ♦ TIN)/JD 


PSSPDD- C-CDS*C CPSSPD*DOMGAS) - CPSDPD*DOMGAD) ) 

4 -KDS*C CPSSP*OT*OOMGAS) - CPSDP*DT*DOMGAD) ) 

4 - CRBCS*CMFE) ) / JS 

C 

XSDD-C-CSUN*XSD -KSUN*XS *FX)/MSUN 
C 

YSDD-C-CSUN*YSD -KSUN*YS ♦FYO/MSUN 
C 
C 

DO 312 1-1,3 

PSPPDDCD-CRBCPPCDkGPTFECI) ♦ RBCP*GPTF 1 C I) ) / JP 
312 CONTINUE 
C 
C 

PSRPDD-C-CLS*CCPSRPD*DOMGAR) - CPSLPO+DOMGAL) ) 

4 -KLS*C CPSRP*DT*OOMGAR) - CPSLP*DT*DOMGAL) ) 

4 -TORQUE) /JR 
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C 

C 

PSLPDD* C-CLS*C CPSLPD*D0MGAL) - CPSRPD-DOMGAR) ) 

* -KLSxCCPSLP+DTxDOMGAL) - CPSRP*DTxDOMGAR) ) -TOUT) / JL 
C 

IFCNRK.EQ.l) GO TO 320 
C 

315 CONTINUE 

C WRITECLU.5010) OT , PSDPDD .PSSPDD , XSDD , YSDD , CPSPPDDC I ) , I -1 ,3) , 
C 4 PSRPDD, PSLPDD, PSDPD, PSSPD, XSD, YSD, CPSPPDCI) , 1-1,3) .PSRPD, PSLPD , 
C * PSDP,PSSP,XS,YS,CPSPPCI) ,1-1,3), PSRP.PSLP 

5010 F0RMATCF9.7,2F13.7,2E15.7,5F13.7/9X,2F13.7,2E15.7,5F13.7/ 

* 9X ,2F13. 7, 2E15. 7 ,5F13. 7) 

C 

CALL RKUTACDT.DDT) 

CALL MOREK CPSDP , PSDPD , DDT) 

CALL MOREK CPSDPD ,PSDPDD , DDT) 

CALL MOREK CPSSP ,PSSPD , DDT) 

CALL MOREK CPSSPD.PSSPDD, DDT) 

CALL MOREK CXS,XSD, DDT) 

CALL MOREK CXSD.XSDD, DDT) 

CALL MOREK CYS,YSD, DDT) 

CALL MOREK CYSD , YSDD,DDT) 

DO 316 1-1,3 

CALL MOREK CPSPP Cl) .PSPPDCI) ,DDT) 

CALL MOREKCPSPPDCD.PSPPDDCI) ,DDT) 

316 CONTINUE 

CALL MOREK CPSRP, PSRPD, DDT) 

CALL MOREK CPSRPD ,PSRPDD , DDT) 

CALL MOREK CPSLP , PSLPD , DDT) 

CALL MOREKCPSLPD, PSLPDD, DDT) 

C 

C WRITE (LU,5010) DT,PSDPDD .PSSPOD , XSDD , YSDD , CPSPPDDC I ) , I -1 ,3) , 

C 4 PSRPDD, PSLPDD, PSDPD,PSSPD,XSD,YSD, CPSPPDCI) , 1-1 ,3) ,PSRPD , PSLPD , 

c * PSDP,PSSP,XS,YS,CPSPPCI) ,1-1, 3), PSRP.PSLP 

C 

DPS IS - PSSP ♦ DTxDOMGAS 
GO TO 275 
C 

320 DPSID - PSDP ♦ DT*DOMGAD 

DPSI1 - PSPPC1) ♦ DTXDOMGAP 
DPS 1 2 - PSPPC2) * DTxDOMGAP 
DPS 13 - PSPPC3) ♦ DTXDOMGAP 
DPSIR * PSRP ♦ DTXDOMGAR 
DPSIL - PSL'P ♦ DTxDOMGAL 
C 

DPSIDD • PSDPD ♦ DOMGAD 
DPS I SD - PSSPD ♦ DOMGAS 
DPS I ID • PSPPDCI) ♦ DOMGAP 
DPSI2D - PSPPDC2) ♦ DOMGAP 
DPSI3D - PSPPDC3) ♦ DOMGAP 
DPSIRD - PSRPD ♦ DOMGAR 
DPSILD » PSLPD ♦ DOMGAL 
C 


T • DT 
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SSTEP«SSTEP*1. 

C 

EFTORQ-O. 

DO 5020 1-1,3 
DFECI>-GPTFECI> 

DFI CI>-GPTFI Cl) 

EFTORQ-EFTORQ ♦ DFI CI>*RBCP*TRI Cl) 

5020 CONTINUE 
C 

IF CIWRIT.EQ.1HY> WRITECLU.5007) T , CDFE Cl), 1-1,3), CDF ICI),I-1,3>, 
t XS.YS 

5007 FORMATCF9.7,2X,3F7.1,2X,3F7.1,2X,2F10.7> 

C 

JTH- I FIXCNC/2.> 

IF CJTH.LT. JWRIT> GO TO 6004 
CALL EXECC11 , ITIME> 

WRITEC1 ,6003) HC , ITIMEC4> , ITIMEC3> , ITIMEC2> 

6003 FORMAT C 'START ',14, 'th INTEGRATION CYCLE & ' , 12 , 2C ' i ' , I2> > 
JWRIT-JMRIT+1 

6004 IF CHC.LE.NCTR> GO TO 315 
C 

IF C I SAVE. NE. JSAVE> GO TO 5009 
I SAVE-0 

T IME C I NDEX> -T*DOMGAS/P ITCHE 
RESULTC1,INDEX> -KGPEC1> 

RESULT C2 , 1 NDEX> -KGPE C2> 

RESULT C3, INDEX> -KGPEC3> 

RESULT C4 , INDEX> -DFEC1> 

RESULTC5, INDEX >*DFEC2> 

RESULTC6, INDEX>-DFEC3> 

RESULTC7,INDEX> -KGP I Cl> 

RESULT C8, INDEX> -KGP I C2> 

RESULTC9, INDEX>*KGPI C3> 

RESULTC10, INDEX > -ABSCDFI Cl> > 

RESULT Cll , INDEX> -ABSCDFI C2>> 

RESULT C 12 , 1 NDEX> -ABSCDFI C3> > 

RESULTC13,INDEX>-XS 
RESULT C14 , INDEX> -YS 
RESULT C15 , INDEX> -EFTORQ 
I NDEX* I NDEX*i 

IF C I NDEX . GT. 400> GO TO 5058 
5009 I SAVE- 1 SAVE*1 
C 

NTH-NTH*1 

IF CNTH. NE. 1> GO TO 5026 
CALL EXECC11 , ITIME> 

WRITEC1 ,5025> NCTR, IT1MEC5> , ITIMEC4> , ITIMEC3> , ITIMEC2> , ITIMEC1> 

5025 FORMAT C/ 'CONCLUDE' , 14 , ' CYLES OF INTEGRATION AT',I5,4C'i',I2>//> 
WRITEC1 , 1> 

READC1 ,s> LU 

WRITECLU,5025> NCTR, 1TIMEC5> , ITIMEC4> , IT1MEC3> , ITIMEC2> , ITIMEC1> 
GO TO 5027 
C 

5026 I TH-IFIXC NTH/50. > 

IF C ITH . LT. NWR IT> GO TO 315 
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5027 IF CLU.EQ.15 WRITECLU, 50075 T , CDFE C 15 , 1 - 1 , 35 , CDF IC I) , i =1 ,3) , XS YS 
IF CLU.EQ.65 WRITECLU, 50295 T, ARGE , CDFECI 5 , I = 1 ,35 , CDFI Ci 5 , I - 1 ,35 
4 XS , YS 

5029 FORMAT CF9. 7 , F13. 5 ,3X ,3F8. 1 ,3X ,3F8. i ,3X ,2F12. 75 
5050 NWR I T -NWR I T* 1 
C 

GO TO 315 

5058 WR ITE CLU ,50595 

5059 FORMATC '»**** INDEX IS GREATER THAN 400 , INTEGRATI ON IS CONCLUDED '5 

5060 CONTINUE 
C 

INDEX-INDEX -1 

6000 WRITEC1 ,60015 ARGE , SSTEP , I NDEX 

6001 FORMAT CF9. 2 , ' PITCH CYCLES COMPLETED F 8 . 1 , ' INTEGRATION CYCLES'/ 

414,' DATA VALUES SAVED, WRITE RESULTS TO DATA FILE? [Y/N] '5 

READ (1 ,45 I WR IT 

IF C I WRIT. NE. 1 HY. ANO. I WRIT. NE. 1HN5 GO TO 6000 
ENDPT-INDEX* 1 . 

IF CIWRIT . EQ. 1HY5 CALL TRANW 
IF CIWRIT. EQ.1HN5 WRITECLU ,60025 

6002 FORMAT C 'RESULTS NOT WRITTEN TO DATA FILE '5 


END 
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C 

subroutine: POSITCLU,KSUN, ALPHA, TGS,TGR0 

COMMON/C 10 /PS I EC50, 3) , KGEC50,30 , PS I I C50 , 3) , KG I C50,30 ,REPEC30 , 
4 REP I C30 ,RBCS,RBCP,RBCR,TOUT,CC60 

COMMON/ Cl 1/TRE C50 , 3) ,TRI C50,30 
DIMENSION AC6,60 ,BC60 , ALPHA C30 ,FEC30 ,FI C30 
xxxxxmxxxxxxxx! IDO NOT FORGET THESE PHASE ANGLES 
REAL KGE ,KGI , KSUN 
INTEGER PH I E C30 , PH 1 1 C30 
DATA PHIE/1,12,23/, PHI I /1 , 10 , 19/ 

C 

NPLAN-3 

N-6 

DO 1 I - 1 , N 
DO 1 J-i,N 
ACI , JO *0, 

bcio-o. 

ccio-o. 

1 CONTINUE 

c DO 5 1-1,3 

C TRECPHIECIO , 10-2.0 

C TRI CPH 1 1 CIO ,10-2.5 

C 5 CONTINUE 

C 

C*****ASSEMBLE LOWER-TRIANGULAR STIFFNESS MATRIX AND TORQUE VECTOR 
C 

C SIGMA-0. 

AC1,10-0. 

SUMXX-O. 

SUMXY-0 . 

SUMYY-0 . 

ER -0. 

DO 2 I -1 , NPLAN 

C SIGMA- SIGMA ♦KG I CPH I I CIO ,10 

ACI , 10 -A Cl , 10 ♦ CCRBCP*TRICPHIICI0,I00**20*KGICPHIICI0,I0 
SUMXX-SUMXX ♦ KGECPHIECI 0 , IO*CCOSCALPHAC1 0 0**20 
SUMXY-SUMXY ♦ KGECPHIECIO , IO*COSCALPHACIOO*S1NCALPHACIOO 
SUMYY-SUMYY ♦ KGECPHIECIO , 1 0*C5INCALPHACI 0 0**20 

ER-ER ♦ TRECPHIECIO , I0*TRI CPHIICI0,I0 
C 

J-I*i 

C A C J , 10 --RBCR*RBCP*KGI CPHII CIO ,10 

C A C J , JO - RBCP*RBCP*CKGECPHIECIO , 10 ♦KG I CPH I I CIO , 100 

C AC5,J0--RBCP*KGECPHIECI0 , 1 0*COS CALPHAC 1 0 0 

C A C6 , JO “-RBCP*KGECPH I E C I 0 ,10*SINCALPHACI00 

C 

ACJ, 10--CRBCP*TRICPHIICI0,IO0 * RBCP * KGI CPH 1 1 C I 0 , 1 0 
A C J , JO - C CRBCS*TRE CPHI E C 1 0 , 1 0 0**20 *KGE CPHI E C 1 0 , 1 0 ♦ 

4 , CRBCP**20*KGICPHIICI0,I0 

AC5, JO»-CRBCS*TRECPHIECIO , 1 0 0*KGE CPH I E C 1 0 , I 0*CGS CALPHA C 1 0 0 
AC6, JO--CRBCS*TRECPHIECIO , I 0 0*KGECPHIEC I 0 , I 0*S I N CALPHAC I 0 0 

2 CONTINUE 

A Cl , 10 -RBCR*RBCR*SIGMA 
A C5 ,50 -KSUN ♦ SUMXX 
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A (6 > 5) -SUMXY 

AC6.65-KSUN ♦ SUMYY 

B C 1 5 --TOUT*CER/ CNPLAN*TGR/TGS5 ) 

C 

C*****FILL SYMMETRIC NxN STIFFNESS MATRIX 
C 

DO 10 I-l.N-l 
DO 10 J* I *1 , N 

ACI , J5-ACJ, I) 

10 CONTINUE 
C 

C WRITE CLU , 11) CCACI , J5 , J-l ,N5 >805 , I “1 »N5 

11 FORMAT C/6CF9. l,5F12.1,F10.1/55 
C 

C*****PERFORM GAUSS ELIMINATION 
C 

DO 40 I-l.N-l 
DO 30 J-I-l.N 
div— acj,i5/aci,i5 
DO 20 K-I.N 

ACJ, K5*ACJ,K5 +DI V*A( I , K5 
20 CONTINUE 

BCJ5-BCJ5*DIV*BCI5 
30 CONTINUE 

C WRITECLU, 115 (CACL.M5 ,M-1,N5 ,BCL5 ,L»1,N5 

40 CONTINUE 
C 

C*****PERFORM BACK-SUBSTITUTION 
C 

CCN5-B(N5/ACN,N5 
DO 60 II-l.N-l 
I-N-I I 
SUM-BCI5 
DO 50 JJ-l.N-l 
J-N+l-JJ 

SUM-SUM-CC J5*ACI , J5 
50 CONTINUE 

CCI5-SUM/ACI ,15 
60 CONTINUE 
C 

TI-0. 

TO-O. 

DO 65 1-1,3 

FI CI5-CRBCP»TRI CPHI 1(15 , I5*CC15 - RBCP*CCI*155 * KGI CPHI 1(15,15 
FEC15-CRBCS*TRECPHIECI5 , I5*CCI*15 - CC55«COSCALPHACI55 - 
t CC65*SIN(ALPHACI555 * KGECPHIECI5 , I) 

TI-TI - RBCS*FEC15 
TO-TO ♦ RBCP*TRI CPH1ICI5,I5*FICI5 
65 CONTINUE 

WRITECLU ,705 CTRECPHIE(I5 , 15 ,TRI CPHI I (15 , 15 , 1-1 ,35 , CCCI5,I-1,N5 
70 FORMAT C ' EXTERNAL , INTERNAL TRANSMISSION RATI0S'/3C2F10.6,5X5/ 

* 'RING, PLANET ROTATIONS, AND SUN CENTER D ISPLACEMENT' /6E13. 65 
WRITECLU, 755 FE,FI,TI,TO 

75 FORMATC'EX MESH FORCES' ,3F8. 2 ,2X ,' IN MESH FORCES' ,3F8. 2/ 

4 'INPUT TORQUE', F9. 2, 10X, 'EFFECTIVE OUPUT TORQUE' ,F9. 2/5 



RETURN 

END 


SUBROUTINE RKUTACT, DTD 

COMMON /Cl 3/ X I (18) ,DXI C18D , NE , NP , NRK , I P , LPP , I STORE , JEP , NCT 
NE « 0 
NP » NP ♦ 1 
NRK - 0 

IFCNP.EQ.5D NP - 1 
IFCNP.EQ.1D GO TO 1 
IFCNP.EQ.2D RETURN 
IFCNP.EQ.3D GO TO 2 
IFCNP.EQ.4D NRK - 1 
RETURN 

1 DT - D.T/2. 

T ■ T ♦ DT 
RETURN 

2 T ■ T ♦ DT 
DT ■ 2. *DT 
RETURN 

END 


SUBROUTINE MOREK CX , DX , DTD 

C0MM0N/C13/XI C18D ,DXI C18D ,NE,NP,NRK, IP, LPP, I STORE, JEP.NCT 

NE « NE ♦ 1 

GO TO Cl, 2,3, 4), NP 

1 XICNED - X 
DXICNED - DX 
X - X + DX*DT 
RETURN 

2 DXICNED - DXICNED ♦ 2.*DX 
X - XICNED + DX*DT 
RETURN 

3 DXICNED - DXICNED 2.*DX 
X - XICNED ♦ DX*DT 
RETURN 

4 DXICNED - CDXICNED ♦ DXD/6. 

X - XICNED ♦ DXICNED*DT 
RETURN 

END 



c 

c 

c 
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SUBROUTINE TRANR ( 1 NAME , IB) 

COMMON /Cl 0 /BUF 1 0 C616) 

COMMON / Cl 1 /BUF 11 C300) 

DIMENSION IDCBC144),I NAME C3) 

DATA I CODE/1 / 

C 

CALL OPEN C I DCB, IER, I NAME, 1,-99,36) 

IF CIER.GT.O} GO TO 13 

9 WRITE Cl » 10} IER , ICODE , INAME 

10 FORMAT C 'FMP ERROR «',I5,' AT I CODE- ' , 12 , ' ON FILE ' ,3A2/ 

& 'PROGRAM ABORTED') 

CALL CLOSE C I DCB , I ER) 

CALL EXECC6) 

13 ICODE* I CGDE+1 

IF CIB.EQ.10) CALL READFCIDCB, IER,BUF10) 

IF CIB.EQ.ll) CALL READFCIDCB, IER, BUF11) 

IF CIER.LT.O) GO TO 9 
ICODE* I CODE+1 
WR ITE Cl , 30) INAME 

30 FORMAT C 'DATA FROM ',3A2,' WAS READ') 

50 CALL CLOSECIDCB,IER) 

RETURN 

END 

C 

C 

C 

SUBROUTINE TRANW 

C0MM0N/C14/TIMEC40Q) , RESULT C 15 ,400) , ENDPT 
DIMENSION I DCB Cl 44) , I NAME C3) , ITITLECS4) ,BUFC15) 

C 

I CODE-1 

N* I F I X CENDPT) 

WRITEC1 , 10) 

10 FORMAT C 'ENTER DATA FILE NAME') 

READ Cl , 15) INAME 
15 FORMAT C64A2) 

WR ITEC1 , 20) 

20 FORMAT C 'ENTER HEADING LESS THAN 129 CHARACTERS') 

READ Cl , 15) ITITLE 

WRITEC1 , 15) ITITLE 

CALL OPENC I DCB, IER, I NAME, 1,-99, 36) 

IF CIER.GT.O) GO TO 30 

25 WRITEC1 , 26) IER, ICODE 

26 FORMAT C 'FMP ERROR' ,14,' AT I CODE- ', 1 4/ ' PROGRAM ABENDED') 
ICODE-ICODE+1 

30 CALL WRITFCIDCB, IER, ITITLE, 64) 

IF CIER.LT.O) GO TO 25 
I CODE- 1 CODE + 1 

CALL WRITFCIDCB, IER, ENDPT, 2) 

IF CIER.LT.O) GO TO 25 
DO 60 I *1 , N 
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BUF(l)-TIMEO) 

DO 40 J-2,16 
BUF(J)-RESULT(J-1,I) 

40 COHTI HUE 

I CODE" I CODE+1 

CALL WR ITF ( IDCB > IER ,BUF,32) 

IF (IER.LT.O) GO TO 25 
60 CONTINUE 
DUMMY-999. 

I CODE- 1 CODE* 1 

CALL WRITF CIDCB, IER , DUMMY, -13 
IF (IER.LT.O) GO TO 25 
WRITEC1 ,70) INAME 

70 FORMAT C 'RESULTS FROM FINAB SUCCESSFULLY WRITTEN TO DATA FILE 
* 3A2) 

CALL CLOSECIDCB, IER) 

STOP 

END 

C 

c 

c 

BLOCK DATA 

COMMON/CIO/BUFI 0(616) 

COMMON/C11/BUF1 1(300) 

COMMON/C13/BUF13(36) , IBUF13(8) 

COMMON/ Cl 4 /BUF1 4 (6401) 

C 

END 


I 
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C <830611. 1003> 

FTN4.L 

PROGRAM FORCE 
C 

C*****THIS PROGRAM PERFORMS THE STATIC ANALYSIS FOR A PGT 

Ckkkkk INCLUDES STATIC MESH AND TOOTH LOADS AS WELL AS SUN GEAR DISPLACEMENT 
C 

COMMON/ CIO /PS IE (50 ,3) ,KGE(50,33 ,PSI I (50 ,35 ,KGI (50,33 ,REPE (30 , 

* REPI (3) ,RBCS,RBCP,RBCR,TOUT ,C(63 

COMMON/ Cl 1/VRE (50,33 ,VRI(50,33 
COMMON/C12/TPSE(50 ,33 ,TPSI (50,33 
C 

DIMENSION- IT1MEC53 ,KGPEC33 ,KGPI (33 , IEPE(33 , IEPI (33 ,PSIEPE(33 
DIMENSION IGCB(1923 .PSIEPI (33 , PHI (33 ,PS I AE (33 , PSI A I (33 , ALPHA(33 
DIMENSION VI (2) ,V2(23 ,V3(23 ,V4(23 ,XTIC(23 ,YTIC(23 ,XMAJ(23 ,YMAJ(23 , 
4YLAST (23 , NPO I NT (23 ,TRE(33 ,TRI (33 ,KDAT(33 , IDAT(33 , PSI (2003 , 

*VAL (2,2003 , ISHR(33 ,FE2(2003 ,FE3(2003 ,F 12(2003 ,FI3(2003 
REAL KGE,KGI ,KGPE,KGPI,KSUN 

DATA PI/3.1415927/, KDAT/2HKG , 2HDA , 2HTA/ , I DAT/2HST, 2HDA , 2HTA/ 

DATA I SHR/2HSH ,2HAR , 2HE / 

C 

DATA DP,PHID/5.000,22.5/ 

DATA TGS,TGP,TGR/25. ,24. ,73. /, RPMIN ,TI N '1 000 . ,4500.0/ 

C 

DATA NPOINT/1 ,5/ , XTIC(23 ,YTIC(13 ,XMAJ(23 , YMAJ(13 ,YLAST/6*0. / 

C 

WR ITE (1 , 113 

11 FORMAT( 'ENTER LU FOR OUTPUT AND ID,LU FOR GRAPHICS DEVICE'/ 
t'l-CRT 2-PRTj 1,1-CRT 2,57-4PP'3 

READ(1 ,*3 IU, ID,LU 

3 FORMAT(A13 
WRITE (1,4 3 

4 FORMAT('WHICH PLOT? 1-X,Y vs PSI 2-X vs Y 3-MESH FORCES'3 
READ (1 ,*3 NTH 

C 

CALL TRANR(KDAT,103 
CALL TRANR(IDAT,113 
CALL TRANR ( I SHR , 123 

IF (ID.EQ.13 CALL SCRENCV1 ,V2,V3,V43 
IF (ID. EQ. 23 CALL F0URCV1,V2,V3,V43 
C 

6 PH1R-PHID*PI/180. 

PDS-TGS/DP 

PDP-TGP/DP 

PDR-TGR/DP 

RPCS-0.5*PDS 

RPCP-0.5*PDP 

RPCR-0.5*PDR 

TOUT “TIN* (TGR/TGS3 

RBCS-RPCS*COS(PHIR3 

RBCP»RPCP*C0S(PHIR3 

RBCR*RPCR*COS(PHIR3 

DO 7 1-1,3 

IEPE( I 3 - I F IX (REPE (13 3 

IEPI (13 ■ IFI X (REPI (13 3 
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PSIEPECI5-PSIECIEPECI55 
PSIEPICI5-PSIICIEPICI55 
PHICI5 -PSIEPECI5 a CI-15/3. 

ALPHA ( I 5 *P I - PHIR - (I -15*2. *P I /3 . 

7 CONTINUE 
PITCHE»2.*P1/TGS 
PITCHI-2.»PI/TGP 

WRITE Cl ,85 TGS,TGP,TGR,TIN, IEPE, IEPI 

8 FORMATC 'TGS, TGP, TGR, TIN, IEPEi, IEPI i ' ,2X ,3F6. 1 , F8. 1 ,2C2X , 31355 
WRITEC1.35 

9 FORMATC 'ENTER SUN SUPPORT STIFFNESS, START CYCLE, NO. CYCLES, ', 

4 'INTERVALS PER CYCLE'/'C4 VALUES REQDI > '5 

READ Cl , *5 KSUN, ARG.NCT.DIV 
DPSIS»PITCHE*ARG 
NCT»NCT+ I FIX CARG5 

Wl-ARG 

W2-FLOATCNCT5 
WR ITEC1 , 2735 

273 FORMATC 'ENTER W3, W4 AND YTIC SPACING'5 
READC1 ,»5 M3 ,144 , YTI CC25 
XT ICC 15"-. 1 
XMA J C15 "10 . 

YMAJC25 "2. 

CALL PLOTRCIGCB, ID.1.LU5 

IF C ID. EQ. 25 CALL L IMITC IGCB , 0 . , 193. 5 , 5 . 5 , 261 . 55 
CALL CSIZECIGCB,2.1,.7,0.5 
CALL PEN C IGCB ,15 
IF CNTH.EQ.25 GO TO 110 

DO 105 1-1,1 

CALL VI EWP CIGCB,V1CI5,V2CI5 ,V3CI5 , V4 C 1 5 5 
CALL W I NOWCI GCB , HI , H2 , W3 , H45 
DO 105 J-1,2 

CALL FXDCIGCB, NPOINT C J5 5 

CALL LAXESCIGCB, XTI CC J5 , YTI C C J5 , W1 ,U3 , XMA J C J5 , YMA J C J5 , . 55 
105 CONTINUE 
GO TO 120 
110 CONTINUE 

TC-CW4-W35/4. 

IF C I D. EQ. 15 CALL VI EWPC IGCB ,58. ,142. ,14. ,98.5 
IF C ID. EQ. 25 CALL VI EWPCIGCB ,25. ,85. ,35. ,95.5 
CALL WINDWCIGCB , W3 , W4 , W3.W45 
CALL FXDCIGCB, 45 

CALL LGRIDCIGCB,-TC , TC ,W3 ,W3, 2. ,2.5 

120 CONTINUE 

DELTA-PSIEPEC15/DIV 

ITOTAL»IFIXCDIV5*l 

NTIME«0 

ICTR-1 

XOLD-W1 
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275 ARGE-DPSIS/PITCHE 
C 

DO 295 J-1,3 

PSIAECJ)- CARGE- FLOAT CIFIXCARGE))) *PS I EPE C J) ♦ PHICJ) 

IF CPS I AE C J) . GT.PSIEPECJ)) PSI AECJ) -PSI AEC J) - PSIEPECJ) 

C 

DO 280 1*2,1 EPE C J) 

IF CPSIAECJ).LE.PSIECI , J)) GO TO 285 
280 CONTINUE 

285 El NCRM- CPSIAECJ)-PSIECI-1,J))/CPSIECI,J)-PSIECI-1,J)) 

KGPE C J) -KGE C I -1 , J) ♦ CKGECI , J) -KGE C I -1 > J) )*E I NCRM 

IF CPSIAECJ).GT.PSIE(IEPECJ) , J) ) KGPECJ)-KGECIEPECJ)*1 , J) 
TRECJ) *VRE C I -1 , J) ♦ CVRECI , J) -VRE C I - 1 , J) >*E I NCRM 
IF CPSIAECJ) . GT. PS I E C I EPE C J) , J) ) TRE C J) -VRE C IEPE C J) «•! , J) 

IF CJ.NE.l) GO TO 286 

GPSE3 *TPSE 0-1,3} ♦ CTPSEC I ,3) -TPSEC I -1 ,3) )*EINCRM 
IF CPSIAECJ). GT. PS IECI EPEC J) , J) ) GPSE3-TPSE C IEPE C J) + 1 ,3) 

C 

C 

286 PSIAI CJ)-PSIAECJ)*TGS/TGP 

IF CPSIAI CJ) .GT.PSIEPI CJ)) PSIAI CJ) -PSIAI C J) - PSIEPICJ) 

C 

DO 290 I *2 , IEPI CJ) 

IF CPSIAICJ).LE.PSIICI,J)) GO TO 291 

290 CONTINUE 

291 DINCRM-CPSIAICJ)-PSIICI-1,J))/CPSIICI , J) -PS 1 1 C I -1 , J) ) 

KGPI CJ)-KGI CI-1,J) ♦ CKGI Cl ,J)-KGICI-i,J))*DINCRM 

IF CPSIAI C J) . GT. PS 1 1 C I EP I C J) , J) ) KGP I C J) -KOI C IEPI CJ) + 1 , J1 
TRICJ) -VR I C I -1 , J) ♦ CVRI Cl , J)-VRI CI-1 , J))*DINCRM 
IF CPSIAI C J) . GT. PS 1 1 C I EP I C J) , J)) TR I C J) -VR I C I EPI CJ)*1,J) 
IF CJ.NE.l) GO TO 292 

GPSI3 -TPSICI-1,3) ♦ CTPSI Cl ,3) -TPS I C I -1 , 3))*DINCRM 
IF CPSIAI CJ) . GT. PSI I CIEPI CJ) , J)) GPS 1 3-TPSEC I EP I CJ) +1 ,3) 

292 CONTINUE 

295 CONTINUE 
C 

CALL POSITCIU, ALPHA, KSUN, KGPE,KGPI , TRE, TRI, TGS ,TGP ,TGR) 

C 

PSI C I CTR) -ARGE 
IF CNTH.EQ.3) GO TO 296 
VALC1 , I CTR) -CCS) 

VAL C2 , 1 CTR) -CC6) 

GO TO 297 

296 VAL Cl , I CTR) -KGPEXA8S CC C2)*RBCP - CC5)*C0SCALPHACD) - 

4 CC6)*SINCALPHAC1))) 

VAL C2 , I CTR) -KGP IC1)*CCC2)#RBCP - CC1)*RBCR) 

FE3C I CTR) - CGPSE3/KGPE C 1 ) )*VALC1 , I CTR) 

FE2C ICTR) -VAL Cl , ICTR) -FE3CICTR) 

WR ITEC1 , 2960) PSICICTR) ,GPSE3,KGPEC1) , FE2 C I CTR) , FE3 C I CTR) , 
4 VALC1,ICTR) 

F I3C I CTR) * CGPS I3/KGP I Cl) )*VAL C2 , 1 CTR) 

F 1 2 C I CTR) -VAL C2 , 1 CTR) -FI 3C I CTR) 

C WRITE Cl, 2960) PSICICTR) ,GPSI3, KGP I Cl) ,FI2CICTR) ,FI3CICTR) , 

C 4 VAL C2 , 1 CTR) 

2960 FORMAT CF11.7,2F11.1,3F10.2) 
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297 DPSIS-DPSIS*DELTA 

IF C I P I CK . EQ. 1HY) WR I TE ( I U , 298) ARGE , KGPE , KGP I , CVALC I , ICTR) , I -i 2 ) 

298 FORMATCF4.2,5X,3F10.1,5X,3F10.1,5X,2F15.7) 

I CTR* I CTR* 1 

IF CICTR.GT. ITOTAL) GO TO 398 
GO TO 275 
C 

398 CONTINUE 

IF CNTH.EQ.2) GO TO 410 

FMAX--1E10 

FMIN-1E10 

DO 409 1-1,1 

CALL VIEMPCIGCB.V1CI) ,V2CI) ,V3CI) ,V4CI)) 

CALL MINDMCIGC8,M1,H2,M3,M4) 

CALL LI NE C I GCB , 0) 

DO 399 J-l , ITOTAL 

IF CJ.EQ.l) CALL MOVE C I GCB , PS I CJ) ,VALCI , J)) 

CALL DRAMCIGCB.PSI CJ) .VALCI , J)) 

IF CVALCI , J) .GT. FMAX) FMAX-VALCI , J) 

IF CVALCI .J5.LT.FMIN) FMIN-VALC1 , J> 

399 CONTINUE 

IF CUTH.EQ.l.OR. I.EQ.2J GO TO 402 

FEXMAX--1.E5 

FINMAX--1.E5 

CALL LINECIGCB,2) 

DO 400 J-l, ITOTAL 

IF CJ.EQ.l) CALL MOVECIGCB.PSI CJ) ,FE2CJ>) 

CALL DRAM Cl GCB, PS I CJ) ,FE2CJ)) 

400 CONTINUE 

CALL LINE C IGCB , 1) 

DO 401 J-l, ITOTAL 

IF CJ.EQ.l) CALL MOVE C I GCB , PS I C J) , FE3 C J) ) 

C CALL DR AM Cl GCB, PS I CJ) ,FE3CJ)) 

IF CFE3C J) . GT . FEXMAX) FEXMAX-FE3C J) 

401 CONTINUE 

402 I F CNTH. EQ.l.OR. I.EQ.l) GO TO 409 
CALL LINECIGCB,2) 

DO 406 J-l, ITOTAL 

IF CJ.EQ.l) CALL MOVEC IGCB ,PS I C J) , F 1 2 C J) ) • 

C CALL DRAMCIGCB,PSICJ),FI2CJ)) 

406 CONTINUE 

CALL LINE C IGC8 , 1) 

DO 407 J-l, ITOTAL 

IF CJ.EQ.l) CALL MOVE Cl GCB, PS I CJ) ,FI3CJ)) 

C CALL DR AM Cl GCB, PS I CJ) ,FI3CJ)) 

IF CFI3CJ).GT. F INMAX) FINMAX-FI3CJ) 

407 CONTINUE 

409 CONTINUE 
GO TO 430 

C 

410 DO 420 1-1 , ITOTAL 

IF CI.EQ.l) CALL MOVEC IGCB .VALCI , I ) ,VAL C2 , I ) ) 

CALL DRAMCIGCB, VALCI, I) ,VALC2,I)) 

420 CONTINUE. 
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C 

430 

440 


C 

C 


C 


9 

10 


13 


30 

50 


CONTINUE 

WRITE Cl ,440) FMAX , FMI N , FEXMAX , F INMAX 

FORMATC 'MAX , MIN MESH LOADS ' , 2F1 0 . 2/ ' FEXMAX , F I NMAX ' , 2F10 . 2) 
CALL PENC IGCB , 0) 

CALL PLOTR C I GCB , ID , 0) 

CALL EXECC6) 

END 


SUBROUTINE TRANR C I NAME , I B) 

COMMON/C1 0 /BUF 10(616) 

COMMON / Cl 1/BUF11C300) 

COMMON / Cl 2/BUF 12(300) 

DIMENSION IDCBC144) , I NAME (3) 

DATA I CODE/1/ 

CALL OPEN C I DCB, I ER, I NAME, 1,-99, 36) 

IF CIER.GT. 0) GO TO 13 
WR ITEC1 , 10) IER, ICODE, INAME 

FORMAT C 'FMP ERROR .',15,' AT ICODE-', 12,' ON FILE ' ,3A2/ 
t 'PROGRAM ABORTED') 

CALL CLOSECIDCB, IER) 

CALL EXECC6) 

I CODE- 1 CODE + 1 

IF CIB.EQ.10) CALL READFCIDCB , IER ,BUF10) 

IF (IB. EQ. 11) CALL READFCIDCB , IER ,BUF11) 

IF C I B . EQ. 12) CALL READF CIDCB , I ER , BUF12) 

IF C IER. LT. 0) GO TO 9 
I CODE- I CODE*l 
WRITEC1 ,30) INAME 

FORMAT C 'DATA FROM ',3A2,' WAS READ') 

CALL CLOSECIDCB, IER) 

RETURN 

END 
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SUBROUTINE POSITCLU , ALPHA , KSUN , KE , K I , TRE ,TR I , TGS ,TGP , TOR) 
COMMON/CIO/PSIE (50,35 , KGEC50 ,3) , PS 1 1 C50 ,3) , KGI C50 ,3) .REPEC3) , 
* REPI (3) ,RBCS,RBCP,RBCR, TOUT, 0(6) 

DIMENSION A (6,6) , B (6) ,ALPHA(3) , TRE (3) , TR I (3) , FE (3) ,FI (3) 
DIMENSION KEC3) ,KI (3) 

REAL KSUN,KE,KI , KGE,KGI 
C 

NPLAN-3 

N-6 

DO 1 I “1 , N 
DO 1 J-l.N 
A(I ,J)-0. 

BCI)-0. 

C(I)-0. 

1 CONTINUE 
DO 5 1-1,3 
TRE ( I ) -T6P/TGS 
TRI (D-TGR/TGP 
5 CONTINUE 
C 

C****» ASSEMBLE LOWER-TRIANGULAR STIFFNESS MATRIX AND TORQUE VECTOR 
C*****ASSEMBLE LOWER-TRIANGULAR STIFFNESS MATRIX AND TORQUE VECTOR 
C 

A (1 , 1) -0 . 

SUMXX-0. 

SUMXY-0. 

SUMYY-0. 

ER -0. 

DO 2 I -1 ,NPLAN 

A(1 ,1)-A(1 ,1) ♦ CCRBCP*TRI CI))**2)*KI Cl) 

SUMXX-SUMXX ♦ KEC I )*CCOSCALPHA C I ) )**2) 

SUMXY-SUMXY ♦ KEC 1 )*COSCALPHAC I ) )*S IN C ALPHA C I > ) 

SUMYY-SUMYY ♦ KEC I )*CSINCALPHAC I ) )**2) 

ER-ER + TRE ( I )*TRI Cl) 

C 

J-I+l 

A C J , 1) •- CRBCP*TRI ( I ) ) * RBCP * KICI) 

ACJ, J)-(CRBCS*TR£(I))**2)*KECI) * 

* CRBCP**2)*K1 Cl) 

A C5 , J) -- CRBCS*TREC I ) )*KECI )*COSCALPHA C I ) ) 

A (6 , J) •- CRBCS*TRE( I ) )*KE Cl) *SIN (ALPHA ( I ) ) 

2 CONTINUE 
C 

AC5,5)«KSUN ♦ SUMXX 

A C6 ,5) -SUMXY 

A C6 ,6) -KSUN ♦ SUMYY 

BCD- -TOUT* CER/ CNPLAN*CTGR/TGS) ) ) 

C 

C*****FILL SYMMETRIC NxN STIFFNESS MATRIX 
C 

DO 10 1-1 ,N-1 
DO 10 J- I ♦! , N 
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A ( I , JO=ACJ,IO 

10 COHT I HUE 

C WRITECLU ,11) C C A C I ,J) , J=1,N0 ,BCI0 , 1=1, NO 

11 FORMAT ( /6CF9. 1,5F12. 1,F10. 1/)) 

C 

C«*»*»PERFORM GAUSS ELIMINATION 
C 

DO 40 I-l.N-l 
DO 30 J= I ♦ 1 , N 
DIV--ACJ,IO/ACI ,10 
DO 20 K- I , N 

ACJ,KO=ACJ,KO*DIVhACI ,K0 
20 CONTINUE 

BCJO-BCJO +D 1 V»B CIO 
30 CONTINUE 

C WRITE CLU ,11) CCACL.MO ,M-i,N0 ,BCL0 ,L=1,N0 

40 CONTINUE 
C 

CkhkehPERFORM BACK-SUBSTITUTION 
C 

CCNO«BCNO/ACN,NO 
DO 60 II«i,N-l 
I-N-I I 
SUM-BCIO 
DO 50 JJ-l.N-l 
J-N+l-JJ 

SUM-SUM-CCJOKACI , JO 
50 CONTINUE 

ccio-sum/aci , io 
60 CONTINUE 
C 

C Tl-O. 

C TO-O. 

C DO 65 1-1,3 

C FI CIO-CRBCPkTRI CIOhCCIO - RBCPsCCI+100 a KICIO 

C FECI0-CRBCSBTRECI0«CCI*10 - C C50BCOS CALPHA C 1 0 0 - 

C t CC60«SINCALPHACI000 » KECIO 

C TI-TI - RBCSBFECIO 

C TO-TO ♦ RBCP»TRI CI0»FI CIO 

C 65 CONTINUE 

C WRITECLU ,705 CTRECIO ,TRI CIO , 1-1 ,3) , CCCI), 1-1,10 

C 70 FORMAT C 'EXTERNAL , INTERNAL TRANSMISSION RATI OS' /3C2F10 . 6,5X0 / 

C & 'RING, PLANET ROTATIONS, AND SUN CENTER DISPLACEMENT'/6E13.60 
C WRITE CLU, 75,0 FE,FI,TI,TO 

C 75 FORMAT C 'EX MESH FORCES' ,3F8. 2,2X , ' I N MESH FORCES' ,3F8. 2/ 

C ft 'INPUT TORQUE' ,F9. 2, 10X, 'EFFECTIVE OUPUT TORQUE' ,F9. 20 

C 

RETURN 

END 
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SUBROUTINE FOUR (BACK) 

DIMENSION BACK C8) , VALUC8) 

DATA VALU/2*22. ,2*65. ,71. ,26. ,91. ,46./ 

DO 10 1-1,8 
10 BACK C I ) -VALU C I ) 

WRITE(1 ,20) 

20 FORMAT C 'ENTER V1,V2,V3,V4 > _') 

READCl ,*) BACK (1) ,BACKC3) , BACK (5) ,BACKC7) 
RETURN 
END 
C 
C 

SUBROUTINE SCREN CBACK) 

DIMENSION BACKC8) .VALUC80) 

DATA VALU/2*20. ,2*195. ,54. ,5. ,98. ,49. / 

DO 10 1-1,8 
10 BACK(I)-VALUCI) 

RETURN 

END 

C 

C 

BLOCK DATA 

COMMON/CIO/BUFI 0(616) 

COMMON/ Cl 1/BUF 11 (300) 

C0MM0N/C12/BUF12 (300) 

C 


END 
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C 

FTN4.L 


PROGRAM DRAW1 


C 

C*****TH I S PROGRAM EXAMINES AND GRAPHS THE USER SPECIFIED DATA FILES 
C*****GENERATED BY PROGRAM INTEG 
C 

C0MM0N/C15/T IME C400) , RESULT C3 , 400) 

DIMENSION 1GCBC192) , ITITLEC16) , INAMEC3) 

DATA ID ,LU > LS/1 ,1,0/ 

DATA VI ,V2,V3,V4/15. ,195. ,75. ,99./ 

DATA HI , N2/1 , 1 / , W3.W4/0 . , 1300 . / 

C 

WR ITEC1 , 100) 

100 FORMAT C 'ENTER ID.LU FOR PLOTTING DEVICE l Cl , 1) , C2 ,57) ) > _') 
READC1 ,*) ID.LU 

CALL PLOTR (IGCB,ID,1,LU) 

C IF CID.EQ.2) CALL LIMITCIGC8 , 0 . ,66. , 0 . ,100. ) 

UR I TE Cl, 101) 

101 FORMATC 'ENTER CHARACTER SIZE > _') 

READC1 ,*) CHAR 

CALL CSIZEC IGCB ,CHAR, . 75) 

C 

10 CALL TRANR C I NAME , I CR) 

C 

URITECl.il) 

11 FORMAT C 'ENTER FIRST, LAST DATA POINTS, XDIV, YDIV') 

READC1 ,*) ISTRT.ISTOP, XDIV, YDIV 
Hl-TIMECISTRT) 

U2-TIMECIST0P) 

C 

12 WRITE Cl , 1) 

1 FORMAT C 'ENTER NUMBER OF THE VARIABLE TO BE PLOTTED Cl-3)', 

« ' ENTER 15 FOR XvsY') 


READC1 ,*0 I 

WRITEC1 ,2) VI ,V2,V3,V4,W1 ,W2,W3,W4 

2 FORMATC 'VI EWP «', 4F7. 1/ 'WINDW. ',4E14. 6/ 

* 'CHANGE PARAMETERS? CY/N) > _') 

READC1 ,3) IPICK 

3 FORMAT CA1) 

IF CIPICK.NE.1HY) GO TO 9 
WRITE Cl ,4) 

4 FORMATC 'CHANGE VIEWPORT? CY/N) > _') 

READC1 ,3) IPICK 

IF CIPICK.NE.1HY) GO TO 6 
WR ITEC1 ,5) 

5 FORMAT C 'ENTER NEW VALUES FOR VI , V2 , V3 , V4 ' ) 

READC1 ,*) VI ,V2 ,V3,V4 

6 WRITEC1 ,7) 

7 FORMATC 'CHANGE WINDOW? CY/N) > _') 

READ Cl ,3) IPICK 

IF CIPICK.NE.1HY) GO TO 9 
WRITEC1 ,8) 

8 FORMATC 'EN.TER NEW VALUES FOR W3.W4 CENTER W1.W2 FIRST IF 1-15)') 



o o 


226 


IF Cl. HE. 15) READCl ,») W3.W4 
IF CI.EQ.15) READCl,#) W1,W2,W3,W4 
9 CONTINUE 
C 
C 

CALL VIE WP Cl GCB, VI , V2 , V3, V4) 

CALL W I NDW C I GCB , W1 , W2 , W3 , W4) 

C 

Al* CW2-W1) /XD IV 

A2-CW4-W3)/YDIV 

A3-W1 

A4-W3 

WR ITE Cl , 15) N1,N2 

15 FORMAT C 'DECIMAL PLACES ON LABELSi ' ,214/ 

4 'CHANGE? CY/N) > ') 

READCl, 3) IPICK 
IF CIPICK.EQ.1HN) GO TO 17 
WR ITE Cl , 1G) 

16 FORMAT C 'ENTER VALUES FOR DECIMAL PLACES C2 REQD) ') 
READCl,#) N1,N2 

17 CALL FXD C I GCB , Nl) 

CALL LAXESCIGCB,A1,0. ,A3,A4,1. ,0. ,.5) 

CALL FXD C I GCB ,N2) 

CALL LAXESC IGCB , 0 . , A2 , A3, A4 , 0 . , 1 . , . 5) 

C 

IF CI.EQ.15) GO TO 21 
DO 20 J* I STRT, I STOP 

IF CJ.EQ. ISTRT) CALL MOVECIGCB,TIMECJ) ,RESULTCI , J)) 

CALL DRAWC IGCB , TIME CJ) .RESULTCI , J)) 

20 CONTINUE 
GO TO 23 

C 

21 DO 22 J- 1 STRT, I STOP 

IF CJ.EQ. ISTRT) CALL MOVECIGCB, RESULTCI ,J) /RESULTC2 , J)) 
CALL DRAWCIGCB, RESULTCI, J) , RESULTC2 , J) ) 

22 CONTINUE 

23 CONTINUE 

C WR ITE Cl ,24) 

C 24 FORMAT C 'DIGITIZE? IY/N) > ') 

C READCl, 3) IPICK 
C IF CIPICK.EQ.1HN) GO TO 30 

C WRITEC1 ,25) 

C 25 FORMAT C'POSITIOM CURSOR AND HIT ANY KEY') 

C CALL D I GTZC IGCB ,XPT, YPT) 

C WRITE Cl ,26) XPT.YPT 

C 26 FORMAT C/ 'COORDINATES OF CURSOR' ,2F10 . 6/) 

GO TO 23 

30 WRITEC1 ,31) 

31 FORMATC 'REDRAW? CY/N] > ') 

READCl, 3) IPICK 
IF CIPICK.NE.1HN) GO TO 12 
WRITEC1 ,32) 

32 FORMAT C 'PLOT NEW OATA SET? [Y/NI > _') 

READCl, 3) IPICK 
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IF CIPICK.NE.1HN) GO TO 10 
C 

WRITEC1 ,39) 

39 FORMATC 'LABELS? CY/N! > _') 

READC1 >3) IP ICK 

IF C IP I CK. HE. 1HY) GO TO 60 

CAUL VIEWPCIGC8.0. ,200. ,0. ,100.) 

CALL WINDWCIGCB.O. ,200. ,0. ,100. ) 

C CALL CS I2EC IGCB ,5.0,. 755 

C CALL M0VECIGCB.70. ,56.) 

C CALL LABEL C IGCB) 

WR ITECLU ,41) 

41 FORMATC 'SUN/PLANET MESH FORCES CTYP)') 

CALL MOVE C IGCB, 70. ,6. ) 

CALL LABELCIGCB) 

WR ITECLU ,42) 

C 42 FORMAT C 'PLANET/RING MESH FORCES CTYP)') 

WRITEC1 ,45) 

45 FORMATC 'ENTER GRAPH TITLE C32 OR LESS CHARACTERS!') 
READC1 ,46) ITITLE 

46 F0RMATC16A2) 

CALL M0VECIGCB.140. ,95.) 

CALL LABELCIGCB) 

WRITECLU,46) ITITLE 
CALL PENCIGCB.O) 

60 CALL PLOTRC IGCB ,10,0) 

CALL EXECC6) 

END 


C 

C 

SUBROUTINE TRANRC INAME , ICR) 

C0MMON/C15/TIMEC400) , RESULT C3 , 400) 

DIMENSION IDCBC144) , INAMEC3) , ITITLEC64) ,BUF C16) 

DATA ITITLE/64K2H /, ICODE/1/ 

C 

WRITE Cl ,5) 

5 FORMAT C 'READ FROM HEW DATA FILE? CY/N] > _') 

READC1 ,6) IP ICK 

6 FORMAT CA1) 

IF CIPICK.EQ.1HN) GO TO 17 
WR I TE Cl , 10) 

10 FORMATC 'ENTER DATA FILE NAME > _') 

READC1 , 15) INAME 

15 FORMAT C64A2) 

WRITEC1 , 16) 

16 FORMAT C 'ENTER CARTRIDGE NUMBER > _') 

READC1 ,*) ICR 

17 CALL OPENCIDCB.IER, INAME, 1,-99, ICR) 

IF CIER.GT. 0) GO TO 30 

20 WRITEC1 ,25) IER.ICODE 

25 FORMATC 'FMP ERROR', 14,' AT ICODE-' , I4/'PR0GRAM ABENDED') 
CALL EXECC6) 

30 ICODE-ICODE+1 
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CALL READF CIDCB, IER, I TITLE) 

IF CIER.LT. 0) GO TO 20 
WRITEC1 , 155 ITITLE 
ICODE-ICODE«l 

CALL READFCIDCB, IER,ENDPT) 

IF CIER.LT. 0) GO TO 20 
WRITE Cl ,40) ENDPT 

40 FORMAT CF6. 1 , 'TIME VALUES STORED'/ 

* 'ENTER NUMBER TO ACCESS > _') 

READC1 ,*) ISTOP 
WRITEC1 , 41) 

41 FORMATC/'l-EX STIFF 2-EX FORCE 3-IN STIFF 4-IN FORCE', 

4 ' 5-X , Y MOVE j TORQUE'/'ENTER DATA SET TO GRAPH 

READC1 ,*) I SET 

DO SO 1-1, ISTOP 

ICODE-ICODE*l 

CALL READFCIDCB, IER, BUF) 

IF CIER.LT. 0) GO TO 20 
TIMECI)-BUFC1) 

DO 50 J-1,3 * 

K* C3*I SET) - 2 ♦ J 
RESULT CJ , I ) »BUFCK) 

50 CONTINUE 
60 CONTINUE 

CALL CLOSECIDCB, IER) 

RETURN 

END 


C 

C 

BLOCK DATA 

COMMON /C15/ BUF 15 C 1600) 
END 
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including errors and modifications; (4) positioning errors of the planet gears; (5) torque variations 
due to non-involute gear action. A mathematical model comprised of power source, load, and planetary 
transmission is used to determine the instantaneous loads to which the components are subjected. It is 
capable of considering fluctuating output torque, elastic behavior in the system, and loss of contact 
between gear teeth. The dynamic model has nine degrees of freedom resulting in a set of simultaneous 
second-order differential equations with time varying coefficients, which are solved by numerical 
methods. The computer program was used to conduct parametric studies to determine the effect of manu- 
facturing errors, damping and component stiffness, and transmitted load on dynamic behavior. The re- 
sults of the analysis indicate this methodology will offer the designer/analyst a comprehensive tool 
with which planetary drives may be quickly and effectively evaluated. 
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